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TR_RTRN_IRP Recycle IRP Xmit IRP pool 
2 TR-LPD_BOwWN Process "‘LPD down’’ event 
24 TRSGIVE_TO_ACP ECL entry to queue a buffer to the ACP 
24 UE_QQE"AQB - Queue WOE to AQB 
24 8 TRSQUE_IRP_AQB Queue "'LPD down’’ IRP to AQB 
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e7 34 TRSALLOC_TRP Allocate IRP 
28 79 TRSALLOCATE Allocate and initialize buffer 
29 706 TR_FILL_JNX Conditionally fill journal record. 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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:* ® 
** ® 
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*® ® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
s® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:e IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. . 
** ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
‘® ® 
® * 
® ® 
*® ® 
** * 
® ® 


[* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

:* a asi a mabe tg ata ate Rati. «puna tb erie hg 
" FACILITY: 

VAX/VMS NETDRIVER 

ABSTRACT: 

; This module implements the DECnet Transport packet switching function. 
AUTHOR: 

A. ELDRIDGE 1-May-82 

MODIFIED BY: 

V03-039 RNGOO39 Rod Gamache 24-Mar-1984 

; Enable check of ACP activity timer. Disable all transmit 

: operations if the NETACP process has stalled. 

: V03-038 PRBO316 Paul Beck 8-Mar-1984 18:19 


Add TEST_ADJ to return true/false indication of whether a 
node address represents a node which is one hop Tiskewt. 


v03-037 RNGOO37 Rod Gam 02-Mar-1984 
Disable check of ACP ave «om A timer. 
v03-036 ADE0001 Alan Eldridge 14-Feb-1984 


Remove all trace of the DLE” = port. 
Add count of entries added to AQB work queue. 


v03-035 RNGOO35S Rod Gamache 27-Jan-1984 
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Fix problem with Transport not gi the CXB type 
when system resources are being depleted. 


V03-034 RNGOO34 Rod Gamache 14-Nov-1983 
ix problem in connecting a Phase IV endnode to a 
Phase III node, don't build a Phase IV route header 
on packets transmitted. 
Fix PSI problem that crashes system when the system 
resources (CXBs) are being depleted. 


V03-033 RNGOO33 Rod Gamache 11-Jul-1983 
Add support for cluster group address. 
V03-032 TMHO032 Tim Halvorsen 08-Jun-1983 


Fix erroneous check which prevented reception of Phase II 

route headers (currently only known to be sent by DECnet-2020). 
Fix case where garbaged message which looks Like a data msg 

is received on a point-to-point circuit which hasn't yet been 
node inited. We were assuming that the ADJ was valid and 
crashing when referencing the ADJ block. 


V03-031 RNGOO31 Rod Gamache 01-Jun-1983 
Fix solicit to PH3N, which was preventing any logical Links 
to an adjacent PH3N node. 


v03-030 TMHOO30 Tim Halvorsen 26-May-1983 
Fix setting of Intra-NI flag. We were ayers ortting 
the flag, even in the route-thru case, which told endnodes 
that nodes were on the NI, even when they weren't, 
and cousiee connectivity problems. 
Replace code which sets the Intra-NI flag 0/1 by figurin 
out who the source and destination are. The replaced code 
uses a simple test of input-output LPD to clear the intra-Nl 
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91 he and assumes that all other nodes originate their NI 
9 packets with the flag set. (This code was written in the 
87 previous modification, but left commented out). 
95 V03-029 RNGO029 Rod Gamache 05-May-1983 
96 Only enter node addresses into the CACHE which are 
97 received with the Inta-Ethernet bit set. Remove all 
98 settings of the Intra-Ethernet bit (NEW CODE WRITTEN, 
99 BUT ACTUAL REMOVAL IS DEFERRED). Fix route through code 
100 on endnodes to simply return the packet, rather than 
13) generate a Packet Format Error. 
198 v03-028 RNGOO28 Rod Gamache 02-May-1983 
4 104 Fix the RTS code for sending to Phase III nodes from other 
133 areas. Clean up reception of Broadcast Endnode Hellos. 
00 109 V03-027 RNGOO27 Rod Gamache 30-Apr-1983 
00 198 Don't send messages from other areas to Phase II! endnodes. 
00 109 Check BIT6 in route header flags byte (must be zero). 
0 110 Update LISTENER TIMER on hello message only if it is a 
111 Broadcast Circuit. J 
1 Don't send message to Endnode if the destination address is 
3 12 not the Endnode's. 
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V03-026 RNGO026 Rod Gamache 20-Apr-1983 
Do not send the area number in hello messages to Phase 
Ill nodes. Fix sending hello messages on endnodes. 


v03-025 RNGOO25 Rod Gamache 01-Apr-1983 
Only check HIORD when delivering a packet to the ECL 
layer or when corer "9 the packet to short format. 
Only set the Intra-NI flag header bit when: the message 
is received from the sender and the output ADJ is the 
destination and the input LPD and output LPD are the 
same BC circuit. Also only set when the “ve and Output 
areas are the same as our own (multi-area NIs). 
Do not allow messages from other areas to be sent to 
Phase III routers. 


V03-024 RNGOO24 Rod Gamache 14-Mar-1983 
Start building the XPT pad bytes for datalinks that 
require padding. 
Do not use AOA vector if we are an isolated area router. 
Make the reachability code a general subroutine. 
Conform to change in RHEL and EHEL Hello Timer field. 


v03-023 puseess Rod Gamache 10-Mar-1983 


re XPT pad byte count inclusive of the byte count 
yte. 
VO3-022 TMHOO22 Tim Halvorsen 14-Feb-1983 


Get datalink buffer size from cell in the LPD rather 

than fenput ine it from RCB value. This allows different 
datalinks to have different buffer sizes because of their 
different size Transport route headers. 

If NSP requests a transmit to a specific LPD, and gives 

a remote node address (not a loopback address) as well, 
then lookup the correct ADJ and use that, rather than 
sending the message to an arbitrary BC adjacency. 

Add code to parse the variable length pad field at front 
of received messages. 


V03-021 TMHOO21 Tim Halvorsen 21-Jan-1983 
Fix route-thru not to destroy the address of the LPD we 
initially received the packet on, so that any errors in 
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Fix bug in endnode solicit, so that messages destined 
for ourself don’t go to the designated router. 

Exclude RTS messages from addition to the endnode cache, 
since in an RTS message, the source address isn't really 
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0 return-to-sender are logged with a consistent LPD address. 
0 Change all checks for endnodes to use SDISPATCH macro to 
6° include Phase III endnode case. 

0 Fix support of loop nodes over broadcast circuits on which 
00 our node is the designated router. Also fix loop nodes on 
bp endnodes which have the LPD set to loopback. 

00 v03-020 RNGO020 Rod Gamache 18-Jan-1983 

00 Cleanup the cache timeout handling to work properly in all 
bp cases. 

09 v03-019 TMHOO19 Tim Halvorsen 18-Jan-1983 

0 

00 
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V03-018 RNGOO18 Rod Gamache 11-Jan-1983 


Move cache handling routine to Route Header processing 
routine. Fix Endnode problem for connecting to node 

when the only circuit is turned off. Use symbols for 
computing number of nodes to scan in a 1 second interval. 
Add code to deallocate the LPD CACHE table. 


v03-017 RNGOO17 Rod Gamache 06-Jan-1983 
Fix cache table handling and fix RTS code for route-thru 
case. 

V03-016 RNGOO16 Rod Gamache 30-Nov-1982 


Fix MOP LOOPBACK to not build a route header. 

Add the ENDNODE CACHE to ENDNODE support. 

Do not decrement IRPCNT when queuing CRD qeesagr 

to NETACP, so that LPD activity is stopped until 

the CRD message is received and processed by NETACP. 


v03-015 RNGOO1S Rod Gamache 29-Nov-1982 
Fix massive bugs in LOOPBACK code. 
v03-014 RNGOO14 Rod Gamache 07-0c t-1982 


Add support for Phase IV area routing. 

Fix bug in processing of Pnase II route headers, 
which caused the source address in the CXB to be 

aes zero, causing replies to be sent to the wrong 
node. 

Fix two bugs which prevented STATE SHUT from working. 
Use new long format data message header. Add return 
to sender path for NSP. 


v03-013 RNGOO13 Rod Gamache 24-Sep-1982 
Add support for Phase IV endnodes. 


V03-012 TMHOO12 Tim Halvorsen 14-Sep-1982 
Fix CRC16 checks to avoid CRC instruction if the message 
length is 0-2, and signal an error immediately (short 
message size). ° - 
Don't pre-allocate IRPs to the ‘‘maximum buffers 
srett but instead only allocate IRPs when you need 

em. 

On each timer tick, dynamically reduce the size of 
the IRP_FREE | ste so that the List slowly reacts 
to reduced traffic through the node, and always converges 
to the optimum number of IRPs needed. 
Add support for journalling Transport 1/0. 


V03-011 RNGOO04 Rod N. Gamache 08-Sep-1982 
Fix sending of Phase I] NOP messages, to not skip the 6 
bytes of header. 


v03-010 RNGOO03 Rod N. Gamache 02-Sep-1982 
Fix all error returns to NETACP to return the packet 
size. Set yP ADJ pointer in WQE before checking the 
CRC on X.25 circuits. 
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v03-009 RNGOOO2 Rod N. Gamache cO~Auge sae 
If we are the designated router on a Broadcast Circuit, 
then send a ‘Broadcast Endnode Hello'’ message when the 
‘Broadcast Router Hello’ message is sent. 


V03-008 RNGOOO!1 Rod N. Gamache 13-Jul-1982 
Add Phase IV support to transport. 
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EXTERNAL SYMBOLS 


i] 
8 SADJDEF 
SAQBDEF 
0 SCADEF 
Q SCXBDEF 
0 SDYNDEF 
i] SFKBDEF 
00 SIPLDEF 
00 SIRPDEF 
8° SVADEF 
8 SXMDEF 
00 SNETSYMDEF 
00 SNE TMSGDEF 
SNE TUPDDEF 
SNSPMSGDEF 
SCXBEXTDEF 
SLPDDEF 
SRCBDEF 
SWQEDEF 


: LOCAL SYMBOLS 


00000004 RETRY_TIMER = 4 
00000024 HELLO_MSG_SIZE = 34+2 
0000000A XPT_C_CACHETIMER = 10 
00000046 XPT_C_CACHETIMEOUT = 70 
MAX ES = 1024 
00000100 NODES PER PASS = 256 
00000000 NODE _SHIFT = 0 
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TEMP = NODES_PER_PASS 


LIF LT TEMP=2, .MEXIT 
TEMP=TEMPQ-1 

NODE _SHIFT=NODE_SHIFT+1 
~ENDR 


00000100 


00000040 


00000001 JNXS$$ = 1 
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; Compute real node shift 
3; Calculate NODE_SHIFT as 
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Adjacency control block definitions 

ACP Queue Block 

Conditionally turn on performance monitoring 
Network receive Fs pe definitions 


Define interrupt priority levels 
1/0 Request Packet 

Virtual address symbols 

DMC-11 Driver symbols 


Miscellaneous symbols 

ACP receive buffer symbols 

LPD ‘update’ function codes 
NSP and TR message definitions 


NETDRIVER extensions to the CXB 


Logical Path oe igh! pets 
Routining Control Block 
Work Queue Element 


Error retry time on hello msg transmission 

or Listener timeout notification failure 

Size of worst case hello msg + 2 spare bytes 
Fixed size of BC router hello msg is 27 
Fixed size of BC endnode hello msg is 34 
Fixed size of non-BC hello msg is 6 

Check cache timeout every 10 seconds 

Purge cache entry after 70 seconds of inactivity 

Node data base has 1024 nodes maximum 

Nodes to process per pass (1 second interval) 

Shift value for nodes per pass (initial value) 


value. 
LOG base 2 of NODES_PER_PASS 


Initialize sempgrary value 

Repeat for 2**10 (1024) max value 
Exit if all done 

Else, shift again 

Compute log 

Go again 


IRP$Q_STATION = IRP$Q_NT_PRVMSK 


Enables journalling 
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: MACROS 

“MACRO INCPMS 
IF DF 
“IF NE 
.ENDC 
END 

.ENDM = INCPMS 
.PSECT 


CRC16: -LONG 
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PMS_CELL 


CAS_MEASURE 
CA$_MEASURE 


INCE G*PMS$GL_'PMS_CELL’: 


$$$115_DRIVER,LONG,EXE,RD,WRT 
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RV 


; Increment PMS cell 


Conditional assembly 
Bump the counter 


3; Goto code PSECT 


00 
XPT .MAR; 1 


: Define polynomial table for calculating CRC16 on X.25 datagrams. 
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~SBTTL TRSUPDATE - Initiate receive sequence on data Link 
TRSUPDATE = Update according to datalink state transition 


For RO = NETUPD$_DLL_ON 


Allocate and initialize a ‘‘receive’’ IRP for a particular LPD and introduce 
it into the network pool. This operation happens once each time an LPD 
becomes available for network traffic. If we are an endnode, allocate the 
endnode cache table for the LPD. 


For RO = NETUPDS_REACT_RCV 


A suspended receive IRP may be reactivated. This interface is used to 
restart the receiver which was stalled due to a receive buffer iy 
to be passed to NETACP while the XM$V_STS_BUFFAIL bit was set in the IRP. 
woh attaches the receive buffer to IRPSL_SVAPTE before calling this 
routine. 


: The NETACP wishes to inform other uses of the establishment of 2-way 

3 communication on a broadcast circuit. The TRANSPORT layer with send out 
; @ HELLO message immediately instead of waiting for the HELLO TIMER. 

t 


For RO = NETUPDS_TEST_ADJ 


The NETACP wants to know if a node specified by a node address can be found 
in the endnode cache (i.e. is it one hop distant?). 


INPUTS: R5 NETDRIVER UCB pointer 
4,R3 Scratch 

2 RCB pointer 

1 LPD pointer 

0 Dispatch code (scratch) 


OUTPUTS: 


For RO = NETUPD$_SEND_HELLO 
| 
Preserved 
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0 4,R3 Garbage 
: tl Preserved 
R LBS if successful, else LBC 
0 4 :- 
0 79 TRSUPDATE: : ; Update LPD 
$0 SOISPATCH RO, TYPE=U,- ; Dispatch on fuction request 
0 ¢ <NETUPD$_DLL_ON INIT_RCV>,- : Datalink starting 
04 <NETUPDS-REACT_RCV REACT_RCV>,- ; Reactivate a receiver 
04 4 <NETUPD$_SEND_RELLO SEND-HELLO>,-; Send a hello msg 
04 5 <NETUPD$_GET_ADJ GET_OUT"ADJ>,- ; Get ADJ address for output 
6 § ; <NETUPDS_TEST_ADJ TEST_ADJ>,- ; Test if node is 1 hop away | 
50 D4 08 8 CLRL RO ; ALL others - indicate error 
| 
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05 ¢ 89 RSB ; Return to caller | 
D 391 TEST_ADJ: | 
O3CA 8F ee D 9 PUSHR #*M<R1,R3 Rg R7,R8,RI> ; Save registers 
05 008A C 1 0061 39 CMPB = RCBSB_ETY(R25,#ADJSC_PTY_PH4N : Is this an endnode? | 
é 12 66 94 BNEQ 10% ; If NEQ, bug (shouldn't be called) | 
Be 3 95 CLRL R ; No LPD wanted here 
O5¢f 6A 39 BSBW URSGET ADJ ; Get the output ADJ | 
1050 =2€€ B98 9 BLBC RO,10$ 3 it bt not even reachable 
59 5 0070 398 TSTL = RY : paranoia check | 
19 «7 Bee 188 BEQL 10$ :; If no ADJ, not reachable 
O74 431 ; RB => LPD, R9 => ADJ for the path to this node. | 
0074 108 3; Non-broadcast circuits: we can compare the node address with the 
Boe $8e ; address in the ADJ to see if we're one hop away. 
Boo £38 : Broadcast circuits: Search the cache for the node address. 
50 01 00 0074 408 MOVL #1,R0 ; Assume node is adjacent 
58 DS 0077 409 TSTL R8 ; Make sure we have LPD 
12 13 0079 410 BEQL 10$ : If EQL, not adjacent 
08 22 AB OA €0 O0O7B 411 BBS #LPD$V_BC,LPDSW_STS(R8) ,5$ : If BS, it's a broadcast ckt 
04 A9 54 B81 0080 41g CMPW RG, ADJ SW_PNAC(ROD : If not, does address match? 
09 13 0084 41 BEQL =-208 : If EQL, node is adjacent 
05 11 0086 414 BRB 10$ : Else, yes: adjacent node 
0685 30 0088 415 5$: BSBW SCAN_CACHE ; Search cache for this LPD 
02 11 0088 416 BRB 20$ : If LBS, found in cache 
50 D4 008D 417 108: CLRL RO 3; Not in cache 
O3CA 8F BA OO8F 418 208: POPR #*M<R1,R3,R6,R7,R8,R9> ; Restore registers 
05 0093 419 RSB 
0094 $59 
0094 421 -ENABL LSB 
0094 4 ¢ 
0094 4235 GET_OUT_ADJ: ; Find the output adjacency 
00C2 8F ge 0094 424 + #*M<R1,R6,R7> : Save registers 
O4FE 0 0098 425 BSBW TRSGET_ADJ ; Get the output ADJ 
00C2 BF BA 00 426 POPR #*M<R1,R6,R7> ; Restore registers 
5 44 ? RSB ; Return to caller with status | 
QOAO 429 SEND_HELLO: ; Force sending a hello msg 
O3FE ef BB QOAO 430 USH #*M<R1,R2,R3,R4,R5,R6,R7,R8,R9> ; Save resteters 
58 1 00 AS 431 MOVL R1,R : Copy LPO address 
3 oe eed 4 § SUBL SDN Est LENSE. SP ; Create context block on stack 
5E AA 4 MOVL SP,R 3; Point to fork block 
0299 OAD 434 BSBW TALKER ; Send hello message 
3 18 CO p89 435 ADDL #FKBSC_LENGTH, SP ; Reset stack pointer 
O3FE 8F BA 4 : POPR #*M<R17R2,R3,R4,R5,RO.R7,R8,R9> ; Restore registers | 
OOEC 1 per ? BRw 100$ 3; Exit with status 
A 4 : REACT_RCV: ; Reactivate stalled receiver 
26 =: BB 74 ay PUSHR #*M<R1,R2,R5> ; Save regs 
55 3 Al p00 008 44g MOVL  LPDSL_RCV_IRP(R1),R5 > Get IRP 
Al D4 o¢ ren CLRL LPDSL_RCV_IRP(R1) ; No longer attached to LPO 
C 445 ; 


| 
| 
| 
| 
| 
| 
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NETDRVXPT - NETDRIVER Tra 
v04-000 TRSUPDATE = Initiate receive sequence on SEP- NETACP.SRCIJNETDRVXPT MAR; 1 
oc re ; Say ‘'success'’ and ‘'zero bytes transferred’' in IOST1. These 
C 44 ; conditions will cause the buffer and IRP to be sent back to the 
OC +38 ; datalink driver without signalling any further errors and without 
be rts ;  re-interpreting the buffer contents. 
C3451 : 
be 426 ASSUME IRPSL_IOST2 EQ 4+IRP$L_IOST1 
38 AS) §600" 7D 00C 45 MOVQ S*#SSS_NORMAL,,IRPSL_IOSTT(R5)  ; Enter "'success’’ and ‘'no bytes 
be 454 3; transferred’’. Zero IOST 
51 2c AS dO C7 3 455 MOVL IRP$L_SVAPTE(R5) ,R1 ; Get CXB address 
24.05 51 09 0CB 496 MOVL  R1,IRP$L_10SB(R55 ; Reset the CXB address here 
06 =#1 OCF $2 BEQL 1$ 3; Br if none 
OA Al 18 90 Q0D1 458 MOVB #DYNSC_CXB,CXBSB_TYPE(R1) ; Else, reset the buffer type 
oc BS si16 bb3 £23 1$: JSB @IRPSL_PID(RS) ; Recycle the buffer 
26 4 0008 461 POPR #*M<R1,R2,R5> 3; Restore regs 
00C9 1 OODA 106 BRW 100$ 3; Take common exit 
00DD 46 
eyes 464 
ODD 465 INIT_RCV: ; Queue receive to data Link 
54 22 Al OA €1 OODD 466 BBC #LPD$V_BC,LPDS$W_STS(R1) ,3$ ; Br if not a broadcast circuit 
008A C2 «(05=—o9 dee 467 CMPB = #ADJSC“PTY_PH4NVRCBSB_ETY(R2) : Are we a real Endnode? 
4D 12 OOE 468 BNEQ 3$ :; Br not 
01 20 Al 91 QOE9 469 CMPB PDSB_PTH_INX(R’) .ALPDSC_LOC_INX; Is this for the “‘Local’’ LPD? 
47 13 OOED 470 BEQL ; Br if yes - no CACHE needed 
66 Al D5 OOEF 471 TSTL one centetabant : Is the CACHE already allocated? 
42 12 Bore 4% BNEQ $ ; Br if yes - all set 
OOF4 474 ; Allocate the ENDNODE CACHE. The size of each entry is 4 bytes. 
OOF4 475 : The number of entries will be the maximum number of entries + 
Bere $76 ; some extra for the DRT and others attempting to connect. 
7E 51 #=7D QOOF& 478 mova R1,-(SP) 3; Save registers 
51 58 A2 3C OOF7 479 MOVZWL RCBSW_MAX_LNK(R2),R1 : Get number of entries needed 
51 04 C& OOFB 480 MULL : Calculate 4 bytes per entry 
51 1C CO OOFE 481 ADDL #<h04>+12,R1 3; Make room for some extra 
itt rt) 3; _entries plus struct header 
00000000'GF 16 0101 48 JSB EERE SAL ONGUPASED 3: Try to allocate the CACHE 
53 52 00 0107 484 MOVL R2,R 3; Save CACHE address (if good) 
54S éS1 a4 010A 485 MOVL R1,R4 : Save CACHE size 
.. D 0100 486 MOVa (SP)+,R1 ; Restore registers 
3450 €9 gti 487 BLBC — RO, 2098 : Br if error 
ae $82 : Initialize the CACHE. Set the structure type, size and 
He re ; zero the rest of the entries. The cacre is as follows: 
011 49 : ¢wocoeceeeeoceoen} 
11 49 s H : 4 bytes unused 
11 494 : : : 
11 495 2 ¢eoeeeeceocecoeceocan =+ 
at 3 : H Time H 2 bytes for time to update cache. 
11 49 : ' Number : 2 bytes for number of entries in the Endnode 
11 49 3 H of H Cache. 
1 301 : H Entries H 
11 2 3 ' : 2 bytes for size of structure 
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v 
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ran 
nit 
3 3 Pee ane oew aman ane + 
: ; H i 2 bytes for type of structure 
$ ry | LPDSL_CACHE points here. 
: ‘ body of . Each @ntry contains 2 bytes of address in 
; . cache ‘ tow were, followed by 2 bytes of time Last 
0 aT ae : i 
1 § ' H 
§ : $eececeeeoeescce + 
3€ BB : Sa Onn, R2,R3,R4,R5> S ist 
e. 3; Save registers 
63 54 00 63 00 2 : MOVCS RSS , #6,R4 (RS) : fere the structure 
3 BA POPR oR ee Ra 3; Restore registers 
ss» &% & 8 SUBL3 rs FUR 3 Get size of CACHE - header 
50 04S 9 IVL 4,RO : Folculete muaber Of entries 
83 D4 0 CLRL = (R48) + : Skip first Long word 
83 OA 860 1 MOVW #XPT_C_CACHETIMER, (R3)+ : Initialize CACHE timer period 
83 50 B60 ; MOVW RO. <R - 3; Set # of entries in cache 
83 54 860 MOVW R4,¢ 3; Set size of structure 
83 17 +60 4 MOVW SOYNSC. NET, (R3)+ 3 
66 Al 53 00 ; MOVL R3,LPDSL_ CACHE (R1) 3 Save address of CACHE table 
, : Queue initial receive to datalink 
55 O7CF'CF 9E 9 3$: MOVAB W“TRSRCV_BIO_DATA,RS : Setup IRP return address 
A. 22 Al O £0 0 BBS aLPosy RBF ,LPDSW_STS(R1),10$ : If BS then reads are buffered 
072B'CF 9E 1 MOVAB yRsaty. DIO_DATA,R5 : Setup IRP return address 
63 10 ¢ 5$: BSBB Wit 3; Init Free CXB q 
5F 50 =E9 7 teee' BLBC RO,2 tt : If LBC then Ae mony error 
cou 
6 


MMM S NWOQOOCOCOCOCOCOM OOWF NDS PPP PF NMODOAOAOAMAO OAS 9 DW UNWIN AINA 


PRA QAEDA AAA ADA MIE BE EB PEE ES PWIND PND 2 OO OO OO OO OS OS 


7 3 
8 . 
50 0000'8F 3C 9 MOVZWL #SS$_DEVACTIVE,RO 3; Assume error 
0 ASSUME LPDSU_ACTIVE g9 0 ; 
56 22 Al 8 1 LBS LPDSW_STS(R1),200$ 3; Br if already active 
OFF2 0 ¢ BSBW TRSA FOC _IRP ; Allocate the IRP 
50 50 ~=€9 BLBC RO,200$ : Br on error 
0c Ae B6 4 INCW RCBSW_TRANS(R2) > Account for IRP 
54 OC A 9E 2 MOVAB IRP$L_PID(R3) ,R4 ; Setup ptr to build IRP 
7 ASSUME IRPSL_AST EQ 4+IRPSL_PID 
8 ASSUME IRPSL_ASTPRM EQ 4+IRPSL_AST 
9 ASSUME “WIND EQ 4+IRPSL-ASTPRM 
0 ASSUME IRPSL_UC EQ 4+IRPSL_WIN 
1 ASSUME LPDSL~ UCB EQ 4+LPDSL~ WIND 
84 3655 0 : MOVL ; Move return address into PID 
84 20 Al C 4 MOVZWL Ro cn aT WCRT). (RODS ; Enter LPD i.d. into 
84 = 652 0 5 MOVL + : Enter RCB ptrs into ASTPRM 
84 OC Al 7D 6 MOVG  LPOSL_WIND(R1),(R4)+ : Enter WIND and UCB ptrs 
8 ASSUME IRPSW_FUNC EQ 4+IRP$L_UCB 
9 ASSUME IRPS$B_ EFN EQ 2+I1RPSW_ FUNC 


3 


8 

NE TDRVXPT = NET ER nsport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 
thats TRSUP = tiate receive Sequence on ety Pi $3335 i883 NETACP.SRCIJNETDRVXPT.MAR; 1 ° 

ASSUME IRPS$B_PRI EQ 1+IRP$B_EFN 

ASSUME IRPS$L_IOSB EQ 1+IRP$B_PRI 

ASSUME IRPS$W_CHAN EQ 4+IRP$L_I0SB 

8 67C CLRQ (R4)+ ; Clear FUNC,EFN,PRI,IOSB 
84 14 Al AE MNEGW LPDSW_CHAN(R1),(R4)+ 3; Enter CHAN 


If the LPD does direct I/0 on receives, remove the buffer from the 
RCB CXB free queue and attach it to the IRP. For buffered I/0 
receiver's, no buffer is allocated since that is a datalink 
function == due to possible buffer size requirements, only those 
buffers allocated by the datalink receiver are ever returned to the 
datalink via the IRP (e.g., during BUFFAIL). 


ASSUME IRPS$W_STS EQ 2+IRP$W_CHAN 
ASSUME IRPSL_SVAPTE EQ 2+IRP$W_STS 
ASSUME IRPS$W_BOFF EQ 4+IRP$L_SVAPTE 
ASSUME IRP$W_BCNT EQ 2+IRP$W_BOFF 
84 03 860 MOVW #IRPSM_FUNC! IRP$M_BUFIO,(R4)+ Setup STS for read functions 
13 22 Al 06 £0 BBS #LPDSV_RBF ,LPD$SW_STS(R15 , 308 If BS then reads are buffered 
EA O01 AA BICW #IRPS$M_BUFIO,-2(R4) Setup for direct 1/0 
50 OOAO0 D2 ~ OF REMQUE @RCBS$Q_CXB_FREE(R2) ,RO Get CXB 
1C If VC then got one 


BVC 20$ 
BUG_CHECK NETNOSTATE FATAL Queue should have been 
non-empty at this point 


24 A3 50 00 $s MOVL RO, IRP$L_I0SB(R3) 


foie lel elelel ele lolol ol ol elelolelololelelelolelolelelelolelelelelelelelelelelelelelelelelelelelelolelelaleleolao lao <j~) 
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4 7C¢ 0$: CLROQ + Clear SVAPTE, BOFF, W_BCNT 
FE A4 3FFF 8F BO MOVW M°OX<3FFFD>,-2(R4) Setup W_BCNT 
ASSUME IRPSL_BCNT EQ O+IRP$W_BCNT 
ASSUME IRP$L~IOST1 EQ 6+IRP$L-BCNT 
ASSUME IRP$L~10ST2 EQ 4+IRPSL~IOST1 
84 D4 CLRL (R4)+ ; Clear high word of L_BCNT 
3 and next reserved word 
84 00° 7D MOVQ S°#SS$_NORMAL , (R4)+ ; Enter ‘'success'’ and ‘'no bytes 
59 ; xferred into IOST1 == this is 
60 ; the standard method for 
60 ; admitting IRP's into the 
60 3: receive cycle. 
1c Al 96 60 INCB LPD$B_IRPCNT(R1) ; Account for IRP to be queued 
22 Al 01 A8 60 BISW #LPDSA_ACTIVE, .LPD$W_STS(R1) ; Mark LPD active , 
OF48 30 605 50$: BSBW POST ; Start the cycle by sending 
60 ; the IRP thru IOPOST 
50 01 00 607 100$: MOVL #1,R0 : Indicate success 
05 608 200$: RSB 
60 -DSABL LSB 
eI 
e| INIT_CXB_FREE: ; Init free CXB queue 
bi ; 
61 ; If the CXB lookaside List used for circuits using Direct 1/0 
61 3 reads is empty then allocate a single CXB and insert it on the 


~~ 
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#*MCR1,R2,R3> 
#1,R0 

RcBSO CXB_FREE(R2) ,R3 
R3,(R3) 

10§ 

RO 

RCBSB_ST1(R2) 


RCBSW_TOTBUFSIZ(R2) ,R1 
#TRSC_MAXHDR=6,R1 


Ww 09 9 OU 
CWE PS NO 


w > 2 
oo Oo 


#*M<R1,R2,R3> 


04-00 Page 
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Save regs 


Assume queue is non-empty 

Get queue header address 

Any free CXB's ? 

If NEQ then yes, 

Assume ACP not ‘‘up’’ yet 

symbol Can we trust the buffer size 
If EQL then no 

Get buffer size assuming 6 byte 
route header 

Adjust to account for bargest 
possible route header (NI E 
Add 2 extra bytes {yst in case this 
is a X.25 DLM datalink 

Allocate a CXB 

If LBC then allocation failure 
Insert CXB on the queue 


Restore regs | 
Return status in RO 


~~ 
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-SBTTL TRSKILL_LOC_LPD = Attempt to shutdown Local LPD 


om 


+ 
TRSKILL_LOC_LPD = Attemp to shutdown Local LPD 


see if the ‘local LPD’' has run-down. If so, it notifies the NETACP and 
deactivates the local LPD. 


INPUTS: R2 RCB address 
OUTPUTS: R3 Garbage 
R2 Preserved 
R1 Garbage 
RO Low bit set if the local LPD is deactivated 


This routine is called when the network is shutting down. It checks to 


Low bit clear otherwise 
ALL other registers are unchanged. 


t 
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fe ee ie ew www lw lwo lololaololalelololololeololelolololeleleleloleolelolelolelelololelolololoc! — Me gs -/ 
PORIPOPOPIPIPONONYDY 2 9 = I = to oD 


RSKILL_LOC LPD:: ; Deactivate local LPD 
O1FO 8F 6B 066 PUSAR #*M<R4,R5,R6,R7,R8> 3; Save regs 
0082 C2 B4 668 CLRW RCBSW_MAX_PKT(R2) t Force IRP queue to empty 
OF 25 30 669 BSBW TRSADJUST_IRP : Purge it 
50 D4 670 CLRL RO 3; Assume we must wait 
0080 C2. B5 671 TSTW RCBSW_CUR_PKT(R2) ; Empty yet? 
29 —Sso12 ere BNEQ 30$ :; If not, postpone shutdown 
55 3C B82 OF 674 REMQUE @RCBSQ_LOC_RCV(R2).R5 ; Get Local receive IRP 
2 1D 675 VS 30$ : If VS then its not there 
50 O0A0 D2 OF 676 10$:  REMQUE @RCBSQ_CXB_FREE(R2),.RO ; Get free CXB 
0 1D 677 BVS 20$ : If VS then none 
00000000'GF 16 678 JSB G*COMSDRVDEALMEM ; Deallocate it 
F1 11 443 BRB 10$ 3; Loop 
tt 20$: ASSUME IRPS$L_IOST2 EQ 4+IRPSL_IOST1 
38 AS =7C bas CLRQ IRP$L_I0ST1(R5) ; Clear all status bits -- low bit 
684 ; clear in 10ST1 signals I/0 error 
24 AS 4 685 CLRL IRP$L_IOSB(RS) 3; No buffer to deallocate 
5801 00 686 HOV ALPDST_LOC_INX Rg : Get “local” LPD index | 
28 8248 00 6 MOVL  @RCBSL~PTR7LPD(R2)CR8],R8 ; Get the ‘local’ LPD address 
OD4F 30 688 BSBU © s TR_RTRA_IRP ; Shut down the LPD | 
50 01 00 08? MOVL #1,R0 ; Indicate success 
O1FO 8F BA 691 30$: POPR #°M<R4,RS,R6,R7,RB> : Restore regs | 
05 036 RSB ; Return status in RO 
69 | 
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NE TDRVXPT - NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 
vareeit ts TRSTIMER = Process Transport ayer clock 878 71984 8:30:88 ENETACE. SRCINETDRVXPT.MAR; 1 —_ 
\7 $6 -SBTTL TRSTIMER - Process Transport layer clock tick 
17 697 ;+ 
Vy 639 ; TRSTIMER = Process Transport layer clock tick 
17 700: 
17 44 ; This routine is called at IPL$_NET every time the network clock ticks. The 
8 \f f ¢ 3 action here is to process the “Talker’’ and ‘‘Listener'’ timers on each LPD. 
0217 704 : 
0 i 5 ; INPUTS: R2 RCB address 
6 17 88 : OUTPUTS: R3 Garbage 
0217 708; Re Preserved 
0217 709; R1 Garbage 
0217 710; RO Garbage 
6 5 ae : ALL oth t hanged 
3 other registers ar " 
0317 ie e gisters are unchange 
0217 714 s- 
0217 715 TRSTIMER:: ; Called each network clock tick 
O7F4 8F 6B ogi? rig PUSHR #*M<R2,R4,R5,R6,R7,R8,R9,R10> ; Save regs 
0218 718 ; Check to make sure NETACP is still active before doing any more work 
osi8 at, : Skip check on Endnodes. 
0318 rs! SDISPATCH RCBSB_ETY(R2), TYPE=B,- ; CASE on LOCAL node type 
0218 88 <ADJSC_PTY_PH4N 3$>,- : Phase IV endnode 
0218 724 <ADJSC_PTY_PH3N 3$>,- ; Phase III endnode 
0218 $2 > 
0228 726 : 
ogse tse : ALL others, except endnodes check ACP activity timer. 
OO8F C2 95 0558 183 TSTB RCBSB_ACT_TIMER(R2) ; Is timer wireety stopped? 
06 13 O22F 730 BEQL 1 : Br if y 
OO8F C2 97 8S > ol DECB RCBSB_ACT_TIMER(R2) ; Else decrenent timer 
14 0235 tag BGTR 3$ ; Bri 
00E1 31 os3i a 1$: BRw 120$ : Else, ar active bit 
023A 734 : and leave now 
023A 735 3$: : 
023A tas : On each tick, we reduce the IRP free packet List by 1 IRP, 
023A 737 : so that the list dynamically (and slowly) reacts to reduced 
8 . re : traffic needs, and converges to an optimum size. 
A 740 SETBIT #RCBSV_ACT,RCBSB_STATUS(R2) ; Make sure everyone be knows 
F 741 ; NETACP is qt: l active. 
0A 0080 c 91 F og CMPB RCBSW_CUR_PKT(R2) ,#10 ; Don't Let List get too small 
1 18 44 74 BLEQU $ : Skip if List is getting small 
50 0062 OF 46 744 REMQUE @RCBSQ_IRP_FREE(R2) ,RO : See if there is a free IRP 
OD 1D 4A 745 BVS 5$ : Skip if none 
00000000 ' GF 16 8 rt 8 JSB tie or ae Sir $y ; Deallocate the IRP 
0080 C2. B 5 74 DECW RCBS$W_CUR_PKT(R2) 3 and adjust packet count 
87 28 ree 56 DECW RCBSW_ ~TRARS (RD) ; Here too 
23 £30 ; : Scan all LPDs for talker and Listener 
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NETDRVXPT = NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro Vv04-00 Page 16 | NE TI 
v04-000 TRSTIMER = Process Transport ayer clock iat Yi 3:30:38 NETACP.SRCIJNETDRVXPT.MAR; 1 ° (5) vb4 
59E 4618 = «(C2 , £ ¢ SUBL #FKBSC_LENGTH,SP ; Create context block on stack | 
Bae : for the ‘TALKER’ routine 
~~ hU-! ag SA 754 MOVZBL al tae etter tat 3; Get_number of LPDs 
5 13 6 755 BEQL 30$ ; If EQL then none 
6 £38 ASSUME LPDS$SC_LOC_INX EQ_1 
57 01 QA 6 75 MOVZBL #LPDSC_LOC_INX,R7 : Initialize index 
4F 11 6 758 BRB ; Start at LOCAL+1 
858 28 B247 t 67 759 MOVL A@RCBSL_PTR_LPD(R2)CR7],R8 ; Get LPD address 
48 1 6C 760 BGEQ ; Branch if slot not used 
50 66 A8 00 8 8 Tee MOVL LPD$L_CACHE (R8) ,RO 3 wos the CACHE table for this 
26 13 0272 76 BEQL -158 Me : Br if none 
6 74 = 764 : | 
0274 765 ; Handle CACHE timer 
0274 766 : 
F8 AO B7 0274 767 BECW -8(RO) ; Is it time to check the cache? 
1 14 0277 768 BGTR 15$ ; Br if not = skip cache work 
F8 AO OA 4 0279 769 MOVW #XPT_C_CACHETIMER,-8(RO) ; Else, reset cache timer 
55 FA AO C 027d 770 MOVZWL -6(RO),R ; Get # of entries in cache 
00000046 8F C3 0281 £771 UBL3 #XPT_C_CACHETIMEOUT,- ; Get Absolute system time 
51 00000000' GF 0287 ak: G*EXESGL_ABSTIM,R1 3 _minus cache timeout period 
80 685 0280 773 13$: TSTW (RO)+ ; Skip node address 
80 51 B61 O28F 774 CMPW R1,(RO)+ ; Is current time > entrytime + 
8$38 775 ; cache timeout period : 
03 1B 029 776 BLEQU 14$ ; Br if not, entry still valid 
FC AO D4 §¢33 777 CLRL =-4(RO) ; Else, flush the cache entry 
F355 FS 8504 ore 14$: SOBGTR R5,13$ 3 
17 22 AB O04~SCéE; OSae £60 15$: BBC #LPDSV_RUN,LPDSW_STS(R8) ,20$ ; If BC then no need to talk | 
029F ree : ‘ 
O29F 78 : Process talker timer 
34 784 ; 
OS or oe? : The talker timer cell is located in the LPD data base. 
16 AB B7 O29F 787 DECW LPDSW_TIM_TLK(R8) 3 Tick the talk timer 
12 14 Q2A2 788 BGTR ; Not expired if GIR 
16 AB 04 BO Q2A4 789 MOVW #RETRY_TIMER,LPDSW_TIM_TLK(R8) ; Set for retry : 
02A8 790 : if TALKER resource failure 
55 SE 00 Q2A8 791 MOVL SP,R5 : Setup fork block address 
0384 8F ee ose O36 PUSHR #*M<R2,R7,R8,R9> : Save vulnerable regs 
0097 0 O2AF 79 BSBW TALK ; Send a ‘’hello’’ message | 
0384 8F BA O2B2 794 POPR #*M<R2,R7,RB,RI> ; Restore regs | 
AD 57 59 F3 Bb 199 20$:  AOBLEQ R9,R7,108 : Loop for each cell | 
5E 18 CO Z a4 308: ADDL #FKBSC_LENGTH,SP ; Restore the stack 
0 BD 799 ; : . | 
4 BY ; Process Listener timer 
0 BD 6 : The Listener timer cell is located in the ADJ data base. 
BD : We will only process a maximum of 256 ADJs in a one second 
4 : 3 time interval. 
51 68 A 3¢ BD 06 MOVZWL RCBSW_MAX_ADJ(R2),R1 ; Get number of adjacencies | 
1 C1 EQL ; If EQL then none x 
57 QOOA8 C2 9A 02C3 08 MOVZBL RCBS$B_LSN_ADJ(R2) ,R7 ; Get current index multiplier 


NETDRVXPT = NETDRIVER Transport (Routing) Layer 1 “SEP=1984 01:37: AX/VMS Macro Vv04-00 Page 17 | NET 
tees TRSTI -P po Transport puter tia 1 3 30:88 NETACP.SRCIJNETDRVXPT.MAR; 1 = (5) | vba: 
; for processing this time | 
| ae 8 i$ ASHL #NODE_SHIFT,R7,R7 Get index of where to start 
0 1 B : Br if non-zero - Okay 
ASSUME LPDSC_LOC_INX EQ 1 
57 06 INCL R7 ; Else, start at ‘‘Local"’ 


35$: : 
; Calculate where to finish processing in this time interval. 


53. 57 00000100 8F C1 ADDL3 #NODES_PER_PASS,R7,R3 


Assume current maximum 
is current + NODES_PER_PASS 


s» Fs Ww CMPL R3,R1 ; Is current maximum greater 
; _ than the speauyre max imum? 
03 «18 BLEQU§ 37$ ; Br if no - okay 
os nm & 373 MOVL R1,R3 ; Else, set maximum to MAX_ADJ 
; Update multiplier for next time thru. 
51 OQOOOOOFF 8F CO ADDL #NODES_PER_PASS~1,R1 ; Calculate maximum index 
58 51 FR 8F 78 ASHL #=-NODE~SHIFT,R1,R8 : to use for this pass 
OOA8 C2 (96 INCB  RCB$B_CSN_ADJ(R2) t Update next time path 
58 O0A8 7 zt igs A RCBSB_ LSN “ADJ(R2), R8 : Module NODES_PER_PASS 
OOA8 C2 94 CLRB RCBSB_LSN_ADJ(R2) 3 sen 
15 11 BRB 50$ 3 Start at LOCAL+1 
59 2C B247 dO 408: MOVL A@RCBSL_PTR_ADJ(R2)CR7) ; Get ADJ address 
0c 69 O03 €1 BBC SAD JEN, LSNVADJ$B_STS(R (ROS 50$ ; Br if Listen timer not ticking 
OA AD 58 = A2 SUBW 8 ADJSW_ TIM _LSNTR9) ; Tick the Listener timer 
06 «1A BGTRU 6 : 


: Listener timer has expired - queue WQE to AQB to signal event 


MOVW #RETRY_TIMER,ADJSW_TIM_LSN(R9) ; Retry if LISTENER 
resource failure 


So 
> 
> 
o 
o 
~ 
@ 
o 


| 
Not expired if NEQ 


WANA AIAI AAI AAA AAI AW AWANAAI ANIA AIRIPUPIPIPOPNUPORIPUNIPONPIPIPINPYPPPOPUNPIPPOPONNY PT 
YS VVIMO OVNI PNINVVNOD DW WW SP AAHMMMOOMANOO POWID NOM NOOoCov @Wanacocommnn ca 
SUSU E™ Be BS BBB EE WNW NAINA PINIPINPINPHPONPNNYDY 2 PO Oe oe ee OC 
FAR OC OONAUES WIN OO ONOAU EWN OO ONAUS WN OC OONOUSWNOO OO 
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10 10 BSBB LISTENER ; Listener has timed out 
ira 3 #5 50$: AOBLEQ R3,R7,40$ ; Loop for each cell 
O7F4 BF BA 1008: POPR #°M<R2,R4,R5,R6,.R7,R8.R9,R10> |: Restore regs 
: NETACP is no Longer active, it must have stalled. 
120$: CLRBIT #RCB$V_ACT,RCB$B_STATUS(R2) ; Clear the ACP active bit 
F411 BRB 100$ ; Return 
5 LISTENER: 3 Listener timer has expired | 
76 52 «7D 36 MOV R2,-(SP) ; Save regs 
58 ASSUME IRPSC LENGTH GE WOESC_LENGTH | 
51 4 8F 9A 59 MOVZBL #IRPSC_LENGTH,R1 ; Setup buffer size 
0E4B 30 60 BSBW TRSA CotAre. 3; Get the buffer 
16 23 E9 61 BLBC R Rt $ : If LBC then didn’ t get one 
ss 63 DO 6¢ MOVL 3 Copy puffer for subr call 
52 4 6 MOVL ; Restore RCB address 
12 A5 02 A9 8B 64 MOVW A pace fpocns) tt REQIOT(RS) ; Return ADJ's LPD index 
20 AS 0 65 MOVW WOESW_ADJ_INX(R : Save ADJ index 


3 -- don't wait if no resources 
BLBC RO,EXIT : If LBC, permission denied 
ASSUME TR&$C_BCE_MID2 EQ 0 
ASSUME TR4$C_BCR_MID2 EQ 


oOo 


CLRL IRP$Q_STATION+4(R3) Clear high portion of address 


H 3 
NE TDRVXPT = NETORIVER Transport (Reuting) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Pa 
y5u5000 TRSTI -P cess Transport ayer clock mises 7 $3308 NETACP.SRCIJNETDRVXPT.MAR; 1 ase 
10 AS 09 MOVB #NETMSGSC_LSN,WQESB_EVT(R5) ; Setup ‘‘listner’’ event 
OCFE 8 ; BSBW TRSGIVE_TO_ACP : Pass it to the ACP 
52 BE 7D 9 50$: mOVQ  (SP)+,R2 : Restore regs 
05 8 9 EXIT:  RSB 3; Done 
2 § TALKER: ; Talker timer has expired 
9 4 : 
9 5 s Fork block on stack (ptr in R5) provides context for the next call. 
2 § : The call to SOL_NW must be done with: 
9 8 ; 
9 9 5 INPUTS: R8 LPD address 
9 0 : R7,R6 Scratch 
9 1 : RS Fork block address 
9 § : The FPC,FR3,FR4 fields are all scratch 
9 : RG Scratch 
9 4 : R3 IRP address 
9 5 § Re RCB address 
4 6 3 R1,RO Scratch 
9 ; : OUTPUTS: RO Status 
4 ; : R1,R4,R6,R7,R9 are destroyed. 
59 4 9 1 CLRL R9 No adjacency required 
014D 0 . ¢ BSBW SOL_NW Get permission to xmit 

E 4 
1 5 
1 6 
1 7 
4 8 
7 9 
B 0 
1 
> 308 
7 4 
7 5 
A 6 
D 7 
0 8 
4 9 
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54 52 00 MOVL R2,R4 3; Save RCB address 
51 2—E AB OD MOVL PD$SL_RTR_LIST(R8) ,R1 ; Get ROUTER LIST 
1 BEQL $ :; Br if none 
51. 61 QA MOVZBL (R1),R1 ; Else, get size of router List 
51 00000070 8F CO S$: ADDL  #CXB$C_OVERHEAD- : Add in CXB size 
+HELLO_MSG_SIZE,R1 ; plus fixed size of Rolie. neg 
; (this is worst case msg size 
OEOD 30 BSBw TRSALLOCATE ; Allocate the buffer 
dB 50 = =—«E9 BLBC RO,EXIT : If LBC then failed 
56 52 00 MOVL R2,R6 ; Setup CXB address 
51 468 A6 SE MOVAB CXBS$C_HEADER(R6),.R1 : Setup message ptr 
57 51 00 3 MOVL R1,R7 3; Make a copy 
7 1 : If the circuit is a broadcast circuit, then the PTYPE in the 
7 § 3 ‘main’ ADJ is always unknown. Therefore on broadcast circuits 
7? ; we will have to build either the Broadcast Hello message for 
7 4 : routers or endnodes. Otherwise, for non-broadcast circuits we 
4 5 ; will build the hello message based upon the ADJSB_PTYPE field. 
3D 22 AB OA £0 : 7 5 bes #LPDSV_BC,LPDSW_STS(R8) ,20$ ; Br if broadcast circuit, we 
7¢C 8 ; will use LPDSB_ETY for case 
50 20 AB YA 45 4 MOVZBL LPDSB_PTH_INX(R&) ,RO A Ger one y+ aaa (same as 
4 ndex 
50 2C B440 00 i $31 MOVL ances, PTR_ADJ(R4)CROJ,RO 3; Get ADJ address 
922 SDISPATCH ADJ B_PTYPE(RO) , TYPE=B,- 3; CASE on ADJ's node type 


—— eT eee 
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NE TDRVXPT = NETORIVER Transport (Routing) Layer 16-SE 13 AX/VMS Macro V04-00 Page 
M5 e800 TRSTIMER = Process Transport ayer clock ie 38 83; 3 33 INET TACP. SR SNETDRVXPT MAR: 1 . 
923 <- ; 
924 <ADJSC_PTY_AREA 10$>,- ; Phase IV ne 2 router 
3 5 <ADJSC_PTY_PH4 10$>,- ; Phase IV router 
§ <ADJSC_PTY_PH4N 10$>,- ; Phase IV _endnode 
2. Si <ADJSC_PTY_PH3 15$>,- ; Phase III router 
82 4 8 e <ADJSC_PTY_PHSN 15$>,- 3; Phase III endnode 
96 86930 3 
8 oe 3 ; Build a Phase II NOP message 
87 08 90 0396 9 MOVB #TR3$C_MSG_NOP2, (R7)+ ; Enter Phase II msg header 
cond $1 0399 954 aku 508 ; Continue in common 
1835 839 : Build a Phase IV non-broadcast hello message 
50 OF AS BO O039C 938 MOVW RCBSW_ADDR(R4) ,RO ; Get local node address 
06 11 b3A8 44 BRB 17$ ; Continue in common code 
O3k2 oe ; Build a Phase III hello message 
00 EF O3A2 303 15$: EXTZV - #TR4SV -ADDR_DEST,- Get the local node address 
50 OE A4 OA 03A4 944 #TRO$S_ ADDR-DEST,RCBSW -ADDR(R4), Ro 3..-without aga number 
87 05 90 O3A8 945 17S: MOVB #TR3SC-MSG_RELLO, (R7)+~ ; Enter msg type 
87 50 60 p32 946 MOVW RO,(R CRIT ; Enter local Rade address 
87 02 90 Q3AE 947 MOVB #2,(R7)+ ; Enter count of next field 
87 AAAA 8F 0 0381 948 MOVW #°X<AAAA>, (R7)+ ; Enter alternating 1's and 0's 
00Cc0 1 0386 949 BRW 50$ : Done 
0389 950 20S: 3 
O39 a2) ; Build a Phase IV Broadcast hello message 
1D AB O05 91 0389 985 CMPB #ADJSC_PTY_PH4N,LPDSB_ETY(R8) ; Are we an endnode? 
6A 13 Beep gee BEQL 40$ ; Br if yes 
Oaor 228 ; Build a Phase IV Broadcast router hello message 
87 OB 90 QO3BF 958 MOVB #TR4SC_MSG_BCRHEL , (R7)+ ; Enter msg type 
87 02 8680 bate 959 MOVW #TR4$C_VER_LOWW, (R7)+ ; Enter XPORT version number 
87 00 90 bat 960 MOVB #TR4$C— _VER_HIB (R7)4 ¢ 
87 O00400AA 8F DO O03CB 961 MOVL  #TR4$C~HIORD, (R7) : Enter HIORD portion of addres 
87 OF AS B80 OCF 96¢ MOVW RcBsu RDOR RA) (RP) : Enter local node address 
7 O02 90 D3 96 MOVB #TR4SC Gaby" Li, ¢ R7)+ ; Assume level 1 router 
03 1D AB 91 QO3D6 964 CMPB PD$B “ETYCR Y PADISC. PTY_AREA ; Are we a level 2 router? 
04 12 Q3DA 965 BNEQ ; Br if not 
FA7 O01 9 8 Df 96 MOVB #TR4SC_RIR bvLe -1(R7) ; Enter Level 2 router type 
87 50 A8 BO O3E0 967 30$:  MOVW LPD$W_BUFSTZ(R8S,(R7)+ : Enter datalink buffer size 
rd) ae 90 Q3E4 968 MOVB LP $B. BCPRI(R8) , (R7)+ ; Ent couter. . priority 
8 94 E8 969 CLRB ; RESERVED ¢ EA) 
87 18 A8 BO ce an MOVW LPDSW. INT_TLK(R8) ,(R7)+ ; Enter Any a 
87 18A8 90 E acs MOVB LPDSW_INT_TLK(R8) ,(R7)+ : && Put hello in reserved 
F 97 3 && until ifte are updated 
50 2€ AB 0 O3F 974 MOVL rata Rite EST CRS). RO ; Get R/S 
87 60 0 1 F6 «975 ADDB3 ra 3; Store AL th of NI-LIST 
8 FA 6 CLRQ 3 RESERVED ° ical NI name 
FF A7 e» FC 7 MOVB ; Store lengt a R/S List 
go7e F BB 490 28 PUSHR (RO) ,-1 RD "Rs, R4,R5,R6> : Save register 
4 A 0404 97 MOVZBL (RO)+,R6 : Get Length of SR/S List 
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87 00 
87  Q00400AA 8F 
87 OE A4 
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NETACP.SRCJNETDRVXPT.MAR; 1 


mMOvVC R6, (RO), (R7) 3; Move the R/S List 
ADDL ; Account for bytes moved 

POPR #*M<R1,R2,R3,R4,R5,RO6> : Restore registers 
MOVL #TR4SC_BCR midi.- ; Set destination address 
IRP$SQ-STATION(R3) ; assume we have to send 

; to “ALL Routers 


then we will send the ‘Hello’ message to ‘ALL Endnodes” 
after we have sent it to "ALL Routers". 


BBC #LPDSV_XEND,LPD$SW_STS(R8) ,50$ 


; If we are the designated router on a Broadcast Circuit 


Br if we have not already 
sent the “'Hello’’ message 
to "ALL Routers". 

Else, itt wo a aa address 
) 


MOVL #TR4$C_BCE_M 
$ lL Endnodes 


_BCE_MID1,- 
iRPSa TATION(R3) 
BRB 50$ 


; Build a Broadcast end node hello message 
MOVB #TR4SC_MSG_BCEHEL (R7)+ 


MOVW #TR4$C_VER-LOWW, (R7) 
TR4SC_VE 


Pete Ge Ge Ge Ge 


Enter msg type 
Enter XPORT version number 


Enter HIORD portion of addres 
Enter local node address 
Enter endnode type 

Enter datalink buffer size 
RESERVED (AREA) 

Verification seed 

Store designated router's 
HIORD portion of address 

Get inx of designated router 

Br if none 

Get address of ADJ 

Get designated router address 
Set designated router address 
Enter hello timer 


(R7)+ 
MOVL #TR4$SC_HIORD, (R7)+ 
MOVZWL LPDS$W_DRT(28) ,RO 
BEQL 45 


MOVL @RCBSL_PTR_ADJ(R4)CROI,RO 
MOVZWL ADJ$W_PNACRO) ,RO 
MOVW RO 


» (RT) + 
MOVW = LPOSW_INT_TLK(R8),(R7)+ 
MOVB = LPDSW_INT_TLK(R8), (R7)+ 


Sete Ge Fe Se Se Ge Ge Ge Ge Se Ge Se Be Ge Ge Se 


&& Put hello in reserved 

&& until all are updated 

Enter count of next field 

Enter bit pattern 

Set destination address 
to “ALL Routers 


#2,(R7)+ 
MOVW #*X<AAAA>, (R7)+ 
MOVL #TR4$C_BCR_MID1,- 
IRP$Q"STATION(R3) 


Return success 
Return with status in RO 


SUBL R1,R7 ; Setup message size 

MOVAB W*TRSRTRN_XMT_TLK,IRPSL_PID(R3) ; Setup end-action address _ 

MOVAB 8*60$,R2 ; Setup null end-action routine 
LRL : No ‘quick solicit’’ wanted 


C R 
MOVZBL #1,RO0 
RSB 


a 
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ri : ! ¢ -SBTTL TRSSOLICIT - Process ECL request to xmit into the network 
48C 1 :+ 
rt : ! ; TRSSOLICIT = Process ECL request to xmit into the network 
48C 1039 : 
48C 1040; An ECL o-8- NSP) is ngquest ing to xmit into the network. The appropriate 
48C 1041 ; Logical path (LPD) is sound. either because it was explicitly specified or 
rt ek 3; because the specified destination node address maps to it. 
48C 1044; If the resources for transmission (input packet Limiter queue slot, square 
48C 1045 ; root packet Limit queue slot, IRP) are not immediately available, the 
48C 1 *$ ; request block is entered onto a wait queue. 
48C 1047 ; 
048C re 3 
048C 1049 ; INPUTS: R5 Fork block address 
048C 1050 ; The FPC,FR3,FR4 fields are all scratch and must not 
048C 1051 ; be modified by the caller until it is reactivated by 
048C¢ 1326 : either TRSDENY or TRSGRANTED. 
048C 1053; R4 Destination node address 
048C 1054 ; Zero if Transport is to use the LPD index as ADJ index 
048C 1055 ; R3 1.0. of LPD to xmit over 
048C 1056 ; Zero if Transport is to choose the LPD 
048C 1057 ; R2 RCB address 
048C 1058 ; R1,RO Scratch 
048C 1059 ; 
048C 1969 3 (SP) Return address of caller 
048C 1061 ; 4(SP) Return address of caller's caller 
048C 1996 : 
048C 1063 ; 
048C 1064 ; OUTPUTS: See parameters returned when reactivating process from 
048C 1065 ; routines TRS$GRANT or TRSDENY 
048C 1066 ; 
048C 1067 ;- 
048C 1068 TRSSOLICIT:: ; Process ECL request to xmit 
Rear 1069 ; 
48C 1070 3 
Beet 1071 : Setup the fork block and pop the stack to simplify the code 
48C 1976 : in case the requestor needs to be suspended. 
48C 107 3 
48C 1074 : 
OC AS 8EDO age 1075 POPL FKBSL_FPC(RS) ; Save return addr, pop stack 
07C0 of 490 1 iS PUSHR #*M<R6,R7,R8,R9,R10> ; Save req used for LPD address 
494 1078 BSBB $O 3; Process request, okay to wait 
07CO 8F BA 9853 ! 4 POPR #*MZR6,R7,RB,RI,R10> ; Restore reg 
05 O49A 1 H RSB : Done 
498 8 § : 
498 1085 SOL_NW: : Solicit - do not wait 
498 1 Se 3 
498 1085 3 
498 1 § ; Setup the IRP for eventual xmission. 
298 1088 : 
oc AS 8EDO 498 1089 POPL = FKBSL_FPC(RS) a Setup return address 
10 AS 20 A8 3C O049F 1090 MOVZ2WL LPDSWIPTH(R@),FKBSL_FRS<(RS) ; Save LPD i.d. 
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A 1091 TSTB bf 086 XAT IPL CRB) ; Does g Nput~packetotiniter! allow it 
1 1 GA? 1 35 BLEQ 0$ ; If LEQ then no, DENY reques 
1C A 91 Q4A9 109 P LPDSB_IRPCNT(R8) ,- ; Does ‘'square-root-Limiter’’ allow it 
1E A 4AC 1094 LPDSB-XMT_SRL(RBS ; 
7A 14 Q4AE 1095 BGTR TRSDERY 3; If GTR then no, DENY request 
53 «00 4 OF 0480 1 38 20$: REMQUE @RCBSQ_IRP_FREE(R2),R3 ; Get a free IRP 
if 484 109 BVC 40$ :; If VC then got one 
Oc4D) «3 486 1098 BSRW TRSADJUST_IR: ; Adjust IRP count if possible 
F450 E€8 0489 1099 BLBS RO,20$8 ; Br if any new IRPs were allocated 
6c 11 Rene 1180 30$: BRB TREDENY ; Else, deny permission to xmit 
1F AS 97 Bees 1196 40$: DECB LPDSB_XMT_IPL(R8) ; Consume ‘‘input-packet-Limit’’ slot 
10 AB 96S 4C1 11 INCB LPD$B_ IRPCNT(R8) ; Account for IRP to be queued 
6F si pete 1133 BRE TRSGRANT : Grant permission to xmit 
04€6 1106 SOL_WAIT: ; Process request, okay to wait 
00D0 30 04C6 1107 SBW TRSGET_ADJ ; Get AJD and LPD for output 
5E 50 £9 04C9 1108 BLBC RO, TRSBENY ; Br if no path to node 
54 BS O4CC 1109 TSTwW R4 ; Zero destination? 
244 = 13 ety 1319 BEQL 50$ ; Br if yes, okay to send 
0400 1116 3 If we are endnode, and we are connected to another endnode, 
0400 111 ; then make sure the endnode's address is the same as the 
0400 1114 : destination address. If not, cone the request. This ensures 
94 Vit2 : that the remote endnode only receives packets destined for him. 
0400 1117 $D1SPATCH ADJ$B_PTYPE(R9) , TYPE=B,- 
0400 1118 <- 
04D0 1119 <ADJSC_PTY_PH4N 20$>,- ; Phase IV endnode 
Be08 1169 z <ADJSC_PTY_PH3N 10$>,- ; Phase III endnode 
13. 11 O4DF 1156 BRB 50$ ; Otherwise continue 
00 EF Q4E1 1123 10$: EXTZV #TR4$V_ADDR_DEST,- :; For Phase III nodes, 
50 54 OA Q04E3 1124 #TR4$S_ADDR_DEST,R4,RO ; compare only the node addr, not area 
04 A9 «©4550 8«6B1 6(046E6 «61125 CMPW RO, ADJSW_PNA(R9) :; Is the destination node correct? 
3E 12 O4EA 1126 BNEQ TREDENY :; Br if no, deny request 
06 11 O4EC 1127 BRB 50$ 
04 A9 54 Bl Bees 1128 20$: CMPW R4 ,ADJSW_PNA(R9) :; Is the destination node correct? 
36 «612 «(O4F 1162 BNEQ T ; Br if no, geny request 
10 AS 20 AB -3C ~«O4F4 1130 50S:  MOVZWL  LPDSW PTH(R8),FKBSL_FR3(R5) ; Save LPD i.d. 
14 A5 57 00 red at} MOVL R7, FKBSL_FR4(R5) 3; Save ADJ index if we have to FORK 
O4FD 11 : oan 
Ger i : QUICK_SOL: ; Quick solicit entry 
4FD 1138 ; Make sure the NETACP is still active before actually granting 
pore 1% i 3 ~=permission to transmit. 
01 €1 Q4FD 1139 BBC #RCBSV_ACT,- ; If ACP is not active, then return 
28 0B A2 art 1140 RCBSB_STATUS(R2), TRSDENY; failure to caller 
502 114 ; 
23 1148 ; Need “‘request’’ slot, room on output queue, and IRP to proceed 
502 1145 : 
1F AB 95 030 1138 TSTB LF DS8_xAT_IPL (RE) ; Does ‘‘input-packet-Limiter’’ allow it? 
1€ 15 0505 114 BLEQ 0$ ; If LEQ then no 


ETDRIVER Transport (Routing) i R. 16-SEP=1 1:37: AX/VMS Macro Vv04-00 Page 23 NETC 
RSSOLICIT - process ECL requaet to xmit g: -SEP-1 1384 83:30:88 ENETACP. SREINETDRVXPT.MAR; 1 . (6) vou" 
1C AB 91) «=~0507 «1148 CMPB LPD$B_IRPCNT(R8) ,- : Does ‘'square-root-Limiter’’ allow it? 
1E Ag O50, 1149 PDSB_XMT_SRL(RBS 3 
1 14 050C 1150 BGTR 0$ : If GTR then no 
1f AB 97 Beye 1151 DECB LPDSB_XMT_IPL(R8) : Consume request slot 
1C AB «8696 «(0511 1138 INCB LPD$B_ TRPCHT T(RB) ; Account for IRP to fe queued 
53 00 B2 OF 0514 1153 60$: REMQUE aRCBSO IRP_FREE(R2) ,R3 ; Get a free IRP 
1B 518 1154 BVC TRSGRANT ; If vC then got 
3 3 SIA W122 BSBW TRSADJUST_IRP ; Adjust IRP fount ‘¢ ossible 
F450 +€ 218 1128 BLBS RO,60$ ; If LOS, IRPs were allocated 
50 B2 «65 OF 520 1138 INSQUE (R5),@RCBSQ_IRP_ WAIT#+4(RD) ; Wait for IRP 
of Bl tee 
04 B8 65 OF 0525 1161 70S: INSQUE (R5),@LPD$Q_REQ_WAIT+4(R8) ; Wait for spot on datalink queue 
BUS it oto 
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NE TDRVXPT = NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 
V5.4 000 TRSDENY = Deny solicitor pernisston to ets 7 $30; 38 ENETACP. SREINETDRVXPT MAR: 1 
~SBTTL TRSDENY = Deny sol igi tor permission to transmit 
-SBTTL TRSGRANT - Grant solicitor permission to transmit 


+ 
$DE Reactivate solicitor, denying permission to transmit 


TRSDENY = 
TRSGRANT = Reactivate solicitor, granting permission to transmit 


The R5 fork process cannot be suspended beyond this point. 


ODOOOOOGOOCCCOCOO 
PVPS TST 
POPIPOPIPIPONIPINIPOPININIPUNPIPONIPUNIPY 


A 1165 
A 1198 
A 116 
A 1198 : 
A 118 3 
A 1170; 
A 1171; 
A 1126 : 
A 1173; 
A 1174; 
A 1175; 
A 1126 3; INPUTS: R10 Scratch 
A 1177; R9 ADJ address 
A 1178; Or ZERO if called by TALKER routine 
A 1179; 8 LPD address 
OS2A 1180 ; R7,R6 Scratch 
OS2A 1181; R5 Fork block address 
82 A 1186 : R4 Scratch 
5S2A 1183; R3 If TRSGRANT = IRP address 
OS2A 1184; If TRSDENY = Scratch 
OS2A 1185; R2 RCB address 
OS2A 1186; R1,RO0 Scratch 
052A 1187 ; 
OS2A 1188 ; 
OS2A 1189 ; OUTPUTS: R7-RO Garbage 
O5S2A 1190; 
OS2A 1191; ALL other registers are preserved. 
052A 1136 3 
OS2A 1193 ;- 
052A 1194 TRSDENY: ; Deny permisson to xmit 
50 94 O52A 1195 RB 3; Indicate request denied 
52 dD O52C 1196 PUSHL R2 ; Save RCB address 
0c B85 si16 page 1197 JSB aFKBSL_FPC(RS) 3; Tell requestor 
52 B8EDO 0531 1198 POPL R2 3; Restore RCB address 
05 0534 1199 RSB 3 Done 
0535 1200 
beee 130¢ TRSGRANT: :; Grant permission to xmit 
§332 1 68 : Call requestor back with: 
Bese 1st 3 
535 1205 $ R10 Scratch 
0535 1206 : R9 ADJ address or zero 
0535 1207 ; R8 LPD address 
b232 1608 : R7,R6 Scratch 
5 1 : Fork block address 
§332 1210 $ R4 Scratch 
535 1211 : R3 IRP address only if RO has low bit set, else scratch 
bese 1 \¢ r R2 RCB address 
232 121 3 R1 Scratch 
535 1214 3 "0 Low bit set if permission granted 
232 ! tg ; Low bit clear if permission denied 
535 (121 : 
535 1 13 ASSUME IRPS$L_AST* EQ 4+IRPSL_PID 
: 5 ! }} ASSUME IRPSL_ASTPRM EQ 4+IRPSL_AST 
50 OC AS 9E O05 3 1 $4 MOVAB = IRPS$L_PID(R3),RO ; Setup R4 for IRP builder 


[ 


NETDRVXPT - NETDRIVER Transport (Routing) > SEP=1984 01:37:53 VAX/VMS Macro V04-00 Page 
VO4e000 TRSGRANT = Grant elicitor ing) Lever to Verse P=19 3b 83:35 33 ENETACP. SRCIJNETDRVXPT.MAR; 1 ° 
80  OFQ6' 9E 0539 1 MOVAB W*TRSRTRN_XMT_ECL,(RO)+ ; Setup end-action address 
ao F938 gE ag? 1388 OVZBL LPDSB PTH. “ANXTRES (RODS | i Enter LPD index 
542 1224 MOV R2,(RO)+ ; Enter RCB addre 
545 1225 MOVE : Indicate ‘‘oka "te xmit’’ 
548 1 § JSB aFKBSL_FPC(RS) ; Reactivate solicitor 
e28 1558 
b208 ! 3 ; On return, the CXB and registers are setup as follows: 
Tht 1231 3 
548 1 § 5 oo + 
b2¢8 1 3 { standard : 11 bytes Long. CXBSL_FLINK and CXB$L_BLINK may 
548 1234 : ' V | be used by the Transport layer. CxB$Q_SIZE 
bees ! $2 3 i buffer header i must be correct. CXBSB_TYPE must be DYNSC_CXxB. 
0548 1237 : H : Starts with CXBSB_CODE (byte 11) and continues 
0548 1538 ; H ECL | to CXBSC_LENGTH. “This area is read-only to 
054B 1239 5 | pure area |} Beasetl and below. It cannot even be 
0548 1240 : H ' saved/restored. 
0548 1666 ; H Datalink H Starts at CXBSC_LENGTH and is at lea 
0548 124 3 H Layer : CXBSC_DLL bytes long. Used by the datalink for 
0548 1244 3 : impure area | protocol header or state laternation. 
0548 1245 : $woeceoecesoeccea + 
0548 1246 3 H { 
0548 1247 : ‘ body of - Must be quadword aligned -— starting no sooner 
0548 1568 ; «= message - than CXBSC_LENGTH + CXBSC_DLL (= CXBSC_HEADER) 
0548 1249 Bx oh . The first "' bytes contain: ORTFLG. DSTNOB , SRCNOD 
0548 1250 ; . - FORWARD, in that order. 
0548 1251 5 H ' 
0548 1536 5 iro —aee emeoe oe 
0548 \$2 : ' Datalink {| Used by the datalink layer for protocol (e.g., 
0548 1254 > | . Leyer ' checksum) or state information. Must be at 
0548 \$23 ; «| impure area {| Least CXBS$C_TRAILER in Length. 
0548 1 56 $0 tee eweweeeeoenne + 
0548 1257 5 
0548 1258 3 
0548 1259 3 R9 ADJ address or zero 
0548 1260 : R8 LPD address 
0548 1261 : R7 Size of message 
0548 1 6 s R6 CXB addre 
0548 126 ; R5 Garbage 
0548 1264 : R4 0 if “quick solicit’’ not requested 
p2¢8 1265 3 Faee, r Patter to request block (XWB fork block) with 
54B 1266 : PC pointing to the “quick solicit’’ routine 
0548 1267 : R3 RP ye -- unmodified from call 
0548 1268 : R2 Address of End-action routine to call on 1/0 competion 
54B 1269 : R1 Ptr to Ist byte in standard Phase I11 route-header 
54B 1270 s RO Low bit set - if message is to be xmitted 
548 1271 ; Low bit clear - i no message to xmit. In this case 
0548 1 es : R7-R4,R2,R1 contain garbage. 
0548 127 ; 
54B 1274 . 
548 1275 BBC Rg -608 : If LBC then xmit aborted 
54E 1 6 MOVL R iat Save gh TRS) ; Save ptr to End-action routine 
552 127 CLRW CxB : No receive adjacency 
555 1278 CLRW CXBSe R eit 3; No receive LP 


— 


Setup R2,R5 (RB points to LPD) 
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We ae 000 TRSGRANT = Grant Colicitor peraise on to 5=SEP-1984 EL EL ENETACP. SREINETDRVXPT.MAR: 1 ° 25 v0é 
52 14 a3 DO 79 MOVL IRPSL_ASTPRM(R3) ,R2 ; Recover RCB address 
50 18 As 9 MOVAB [EPR oWINDLRS) LAO ; Setup RO for building IRP 
> »® 8 MOVL R4,R : ‘Quick solicit’’ requested ? 
03 «1 BNEQ 50 : If NEQ then yes 
O7A9 = 31 BRW FINISH _XMT_HDR ; Finish building HDR & IRP, xmit it. 
55 dD 50$: PUSHL R5 t Remember block's address 
5 Dd PUSHL Re ; Remember RCB address 
O7A 0 BSBW FINISH_XMT_HDR ; Finish building HDR & IRP, xmit it. 


BRwW QUICK_SOL Perform ‘quick solicit” 


60S: : 
: User didn't want to xmit after all. Return resources. 
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7s tt MOVL R3,R5 ; Setup IRP address 
24 AS 4 CLRL IRP$L_IOSB(R5) ; No buffer to deallocate 
38 AS) 6 601~—S—s—i00 MOVL #1, 1RP$L_IOST1(R5) ; Avoid false I/O failure detection 
52. 14 AS 00 MOVL IRPSL_ASTPRM(R5) ,R2 ; Recover RCB address 
iF A8& 96 INCB LPD$B_XMT_IPL(R8) 
0906 8630 BSBW TR_RTRN_IRP ; Recycle unused the IRP 
05 RSB ; Done 


Return '‘request'’ slot 
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ALL registers are preserved. 


: -SBTTL TRSTEST_REACH = Check if node is reachable 

: TRSTEST_REACH = Check if node is reachable 

: INPUTS: RO Remote/Local node address 

; R2 RCB address 

: OUTPUTS: RO True if tt path to node available 
3 False if , jailable to node 

t 
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RSTEST_REACH:: 
O3FA 8F 6B PUSHR #*M<R1,R3,R4,R5,R6,R7,R8,R9> ; Save registers 
54 29 dO MOVL RQ «RA ; Pass node addi »ss 
5 D4 CLRL R 3; No specific circuit 
05 10 BSBB TRSGET_ADJ ; Get the output ADJ 
O3FA 8F BA POPR #*M<R1,R3,R4,R5,R6,P7,R8,R9> ; Restore registers 
05 RSB ; Return to caller 


E 
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v04-000 TRSGET_ADJ = Get Sutput ADJ ae tPb ety 7 30:88 NETACP.SRCJNETDRVXPT.MAR; 1 = (9) vO4 
44 : § -SBTTL TRSGET_ADJ - Get output ADJ and LPD 
599 1328 ;+ 
599 1329 ; TRSGET_ADJ Get output ADJ and LPD 
99 0; - 
599 1 § : INPUTS: R4 Remote/Local node address or zero 
0599 1 ; R3 LPD index or zero 
0599 1334; R2 RCB address 
$899 1336 | 
0599 1 2 : OUTPUTS: RI ADJ address (zero if none) 
599 1338; R8 LPD address (zero if none) 
$238 1 i3 3 RO True if path available to node, false if unreachable 
0599 1341: R7-R6,R1 are destroyed. 
B238 ! ts : R5-R2 are preserved. 
0599 1344 -ENABL LSB 
b239 i302 TRSGET_ADJ:: ; Get the output ADJ and LPD 
0599 1347 : Determine the LPD address from the path i.d. in the low byte of 
0599 1348 ; R3. If the path i.d. is zero then determine output LPD from the 
3238 1363 ; destination node address. 
0599 1381 ; CASES: LPD NODE 
0599 138 : NORMAL: R3 = 0, R4& = Destination node address or zero 
0599 1354 : NORMAL: R3 <>0, R4 = Remote node address 
099 139 : LOOP: R3 <>0, R4 = Local node address | 
57 53 9A Baer \32t MOVZBL R3,R7 3 asoune wp need the LPD index | 
3 as the index 
03 12 O59C 1359 BNEQ 10$ ; Br if LOOP case - R3 is non-zero | 
00co.)—Osé3311 1443 1360 BRW 130$ ; Else, NORMAL case 
54 B65 OSA1 1366 10$: TSTW R4 3; Is the node address given? | 
03 12 O5A3 136 BNEQ 0$ ; Br if yes - LOOP NODE case 
0146 = 31 O3A3 1368 BRW 40$ ; Else, use LPD as ADJ 
OE A2 54 Bi SoA 1366 208: CMPW R4 ,RCBSW_ADDR(R2) :; Is this intended for loopback? 
3813 O5AC 67 BEQL «508 : If so, then LOOP NODE request 
beac 1 $3 : Forced-LPD normal case - we are going to transmit a message | 
beat : o 3 to a specific remote node, over a specific LPD. 
OSAE 1372 SDISPATCH RCBSB_ETY(R2),TYPE=B,- ; If we are an dnode, use DRT | 
OSae 1374 <ADJSC_PTY_PH3N 120$>,- ; Phase III endnode 
beac 1375 <ADJSC_PTY_PH4N 120$>,- ; Phase IV endnode 
SAE 1 6 > 
Be ee Beis | 
SBE 1 A: ; First we MUST find the output ADJ based on the node address given 
ge ! Bi : the destination node address supplied in R4. | 
SBE 1382 : Determine the output LPD from the output adjacency. 
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16-SEP-1984 01:37:53 VAX/VMS Macro v04-00 
$78 Hn $3053 NETACP.SRCIJNETDRVXPT.MAR; 1 


EXTZV #TR4$V_ADDR 


OA EF _ADDR_AREA,= ; Get the ‘‘Area’’ portion of the 
$1 96 4 aes age aie 3; node address | 
00 EF EXTZV #TR4$V_ADDR_DEST.- ; Get only the destination | 
57 rn g {RES AOR DEST,= ; portion of the node address 
51 3 TSTB R1 ; Is this for area 0? | 
ee BEQL 30$ ; Br if yes - our ‘‘logical’’ area 
o0sB C2 «(51s CMPB R1,RCBSB_HOMEAREA(R2) ; Is this request for our ‘‘Area’’? 
10 12 BNEQ : Br if no, eny request | 
SA A2 57 Bi 30$: CMPW R7,RCBSW_MAX_ADDR(R2) ; Is the node within bounds? | 
OA 1A BGTRU ; If GTRU then no 
~ wear = MOVZWL @RCBSL_PTR_OA(R2)CR7],R7; Get ADJ index 
03 13 BEQL 40$ ; Br if not there, deny request 
0108 1 BRW 240$ ; Else, continue processing 
0125 1 40$: BRW NOT_REACH ; Else, node unreachable 


50$: : 
; LOOP NODE case - we are going to transmit a message to 

3 a remote node over the LPD, but with the destination address 
; set to ourself so it will be looped back. 


SDISPATCH RCBSB_ETY(R2),TYPE=B,- ; Br if we are an endnode 


<ADJ$C_PTY_PH3N 120$>,- : Phase III endnode 
<ADJSC_PTY_PH4N 120$>,- ; Phase IV endnode 


For the LOOP case, we will first try the DRT for the LPD that 

was passed down from thegrequesting process. If the LPD is a 

BC and the DRT is not set then we must scan the entire BRA 

ADJ List to find the first remote TRANSPORT which can do the loop 
for us. Else, for non-BC circuits, we will use the DRT value as 
given. 


Also, if the DRT is set and we are the DRT for the LPD, then we 
will have to scan the BRA List for a remote transport to talk to. 


Inputs: 

= LPD index (zero extended) 
R4 = Node address 

= LPD index 


@RCBSL_PTR_LPD(R2)CR7],R8 ; Get LPD address 
00$ : If GEQ then slot not in use 
LPD$V_ACTIV 


EO 0 
LPDSW_STS(RB) ,100$ ; If LBC, circuit is inactive 


We must now check to see if the DRT is ourself and if so, 
then we must try to find someone else to loop with. If we | 
cannot find someone else to loop with, then we must try using 
the ‘‘main’’ LPD and hope we are in loopback. 


MOVZWL LPD$SW_DRT(RB) RO - Get the designated router ADJ index 
MOVL  @RCBSC_PTR_ADJ(R2)CRO],RO ; Get ADJ address ie 
CMPW ADJ$W_PNA(RO),RCBSW_ADDR(R2) ; Are we the ‘Designated Router’? 
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1 13° O60F 1440 BEQL 70$ ; Br if yes, try to find someone else 
57 2c AR OT OOety fees CMPW —- LPDSW_DRT(R8) ,R? ! Is the DRT set? 
61 1708 ; (i.e. Not equal to ‘'main’’ LPD) 
3 ie 61 144 BNEQ 60$ ; Br if yes - use DRT 
07 22 AB OA 617 1444 BBS #LPDSV_BC,LPDSW_STS(R8),70$ ; Else, scan BRAs if NI 
2c A C 061C 1445 MOVZWL PD$W_BRT(R8) ,R7 : Get ADJ index for output ADJ 
00Cc 1 ? 1208 BRwW 40$ 3; Go get ADJ and LPD addresses 
56 «6A a 36 6 1448 MOVZWL RCBSW_MAX_RTG(R2) ,R6 ; Get number of routing ‘‘destinations”’ 
1 1 6 1449 BEQL ; Br if none - ery ‘main’ LPD 
57 5C A2 9A 0629 1450 MOVZBL RCBSB_MAX_LPD(R2) ,R7 ; Initialize ADJ index 
11 062d 12) BRR 80 > Start at first ADJ 
59 2C B247 DO O62F 14 ¢ MOVL ARCBSL_PTR_ADJ(R2)CR7].R9 ; Get next ADJ address 
E1 0634 145 BBC #ADISV - : Br if ADJ not in run state 
06 69 06 6 1454 ADJ$B_STS(R9) ,80$ ; 
0209 53 91 0638 1455 CMPB ss R3, ADJSB_LPD_INX(R9) |: LPD match? 
E 3 063C 1938 BEQL 1 ; Br if YES 
gD 7. we -> 5 1457 80$: AOBLEQ R6,R7,75$ ; Br if more 
7 20 AB QA 0642 1458 90S: MOVZBL + i il ramen ; If all else fails, use ‘'main’’ ADJ 
OOAS 31 pets 1023 BRW 40$ 3; Get ADJ and LPD addresses 
OOBF 31 Roe? 109) 100$: BRW NOT_REACH ; DENY - if no remote transport 
beer 1468 ; Found remote transport to loop with, get LPD address 
O0AS 31 064C 1465 1108: RW 2608 ; Get LPD address and continue 
064F 1466 
064F 1467 1208: ; . 
peer 1288 3 For LOOP Endnodes we will ALWAYS use LPD$W_DRT for output 
58 288247 DO O064F 1470 MOVL @RCBSL_PTR_LPD(R2)CR7],R8 ; Get LPD address 
43 18 0654 1471 BGEQ 1608 ; If GEQ then slot not in use 
0656 ore ASSUME LPD$V_ACTIVE EQ 0 
3F 22 AB ED been ee BLBC LPDSW_STS(R8),160$ ; If LBC, circuit is inactive 
57 2C AB 3C O65A 1475 MOVZWL LPDSW_DRT(R8) ,R7 ; Get ADJ index for output ADJ 
008D 31 O65E 1476 BRW 2408 ; Continue in common path 
0661 1477 
0661 1478 3 
0661 1479 3 : 
0661 1480 ; NORMAL transmit request 
0661 1481 3 
0661 14 § : 7 
OA EF 6661 1483 130$: EXTZV  #TR4$V_ADDR_AREA,- ; Get the “‘Area’’ portion of the 
06 663 1484 #TR4$S_ADDR_AREA,- ; node address 
51 54 0664 1485 R4 3 
0666 1486 ASSUME TR4$V_ADDR_DEST EQ 0 
00 EF 0666 1487 EXTZV #TR4$V_ADDR_DEST,- : Get only the destination 
OA 0668 1488 #TR4$S_ADDR_DEST,- 3 portion of the node address 
S734 669 1489 R4,R7 : ; 
668 1490 SDISPATCH RCBSB_ETY(R2),TYPE=B,- | ; Dispatch on Our Node type 
668 1636 <ADJSC_PTY_PH4N SOL_PH4N>,- ; Phase IV endnode 
668 149 <ADJSC_PTY_AREA SOL_AREA>,- ; Phase IV Level 2 router 
668 1494 > 
6 1495 : 
677 1496 ; ALL other = including Level 1 Router 
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ateeiht TRSGET_ADJ = Get Sutput ADJ one LP ety yi EET UNETACP.. SREINEYDRVXPT MAR: 1 ’ (9) 
or? 169f SOL_PH4: ; Phase IV Level 1 Router request | 
677 1299 : First we MUST find the output ADJ based on the node address given 
44 i » : the destination node address supplied in R4. 
oft 13 ¢ ; Determine the output LPD from the output adjacency. 
51 95 0677 1504 STB RT ; Is this for area 0? 
11. 13 0679 1505 BEQL 140$ ; Br if yes - our “‘logical”’ area 
0088 C2 aA 4 a4: 1206 sper R1,RCBSB_HOMEAREA(R2) ; Is this request for our ‘‘Area’’? 
; Br es 
57 OOAC Ce 35 $83 1298 MOVZWL BSBSULVLE (RZ) JA? 3; Else Jet the nearest Level 2 router 
6 1 6 15 BNEQ 40$ ; Br if okay - we have one 
OO7F 31 , 1319 BRW NOT_REACH ; Else, node unreachable 
5A A2 57 Bi net 1216 140$: CMPW R7,RCBSW_MAX_ADDR(R2) ; Is the node within bounds? 
07 1A 0690 151 BGTRU 3 If GTRU then no 
57 1€ 8247 3C 0692 1514 MOVZWL @RCBSL_PTR_OA(R2)CR7],R7; Get ADJ index 
55 12 0697 1515 BNEQ 4 ; Br if okay 
O06F 31 BONE 1316 160$:  BRW NOT_REACH ; Else, node unreachable 
+053 1318 SOL_PH4N: : Process Phase IV endnode request 
069C 1330 : For Endnodes, we will first scan the CACHE to see if the 
069C 1521 : destination node is directly adjacent, and if so send it direct. 
bear 1398 ; Otherwise we will ALWAYS use RCBSW_DRT for output (ignoring R4). 
069C 1524 : Note that RCB$W_DRT is always guaranteed to be either the ADJ 
069C 1525 ; index of the ‘‘designated"’ router or the ADJ index of the LPD's 
233 1337 :  “‘main’’ adjacency. 
069C 1528 : Try the CACHE first! The CACHE is pointed to by the LPD, 
beac 1380 3 we find the LPD to scan from RCB$W_DRT. 
57 01 9A 069C 1531 MOVZBL #LPD$C_LOC_INX,R7 ; Assume we use the “‘local'’ LPD 
OE A2 54 B81 069F 1336 CMPW R4 ,RCBSW_ADDR(R2) ; Is destination node address ourself? 
49 13 06A3 133 BEQL ; Br if yes - use ‘‘local”’ LPD 
57 OOAA C2 7 06A5 1534 MOVZWL RCBSW_DRT(R2) ,R7 ; Get ADJ index for output ADJ 
ED 13 OQ6AA 1535 BEQL 160$ ; Br if none available - DENY 
59 2C B247 DO O6AC 1536 MOVL @RCBSL_PTR ADJ(R2)CR7],R9 ; Get ADJ address 
58 02 A9 9A 06B1 1537 MOVZBL ADJ$B_CPD_INX(R9) ,R8 - Get LPD index for this adjacency 
58 28 6248 0 0685 1538 MOVL @RCBSC_PTR_LPD(R2SCR8I,R8 ; Get LPD address | 
DD 18 O6BA 1539 BGEQ 160$ ; If GEQ then slot not in use - DENY | 
0051 30 dear 1300 BSBW SCAN_CACHE 3; Scan the cache for this LPD 
68F 134¢ : If LBC, scan failed. | 
se 1367 5 We already started with DRT, so we already have R9 => ADJ. | 
4150 €9 O68 1345 BLBc =—_- RO, 3008 ; Continue in common path | 
6C 1849 ; If LBS. scan successful. We must use ‘‘main’’ ADJ, since the | 
ot 1368 3 ‘main’’ ADJ will always have the RUN bit turned off. 
57 20 a8 9A 06C 1389 200$: MOVZBL LPD$B_PTH_INX(R8),R7 : Pick up ‘‘main’’ ADJ index 
59 2¢ B247 DO 06C6 1551 MOVL  @RCBSC_PTR_ADJ(R25CR7].R9 ; Get ADJ address 
36 th 1326 BRB 300$ : Continue in common path 


Scan the on-NI cache for this LPD. Return success/failure in RO. 
Inputs: R4 = node address to look for, R8 = addr of LPD. 


SCAN_CACHE : 
MOV LFeSL CACHE (RS) .RO ; Get the CACHE table for this LPD 
BEQL 0$ Br if none 
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6CD 1554 SOL_AREA: ; Solicit request for Level 2 Router 
00 £0 06CD 1385 BBS #RCBSV_LVL2,- ; If we gre fet allowed to do 
03 0B Ag 6CF 13 : RCBSB_STATUS(R2),220$ : Level 2 routing, 
FFA 31 08 : : 2208 BRW SOL_PA4 ; Then act Like a Level 1 router 
6D 1388 ; First we MUST find the output ADJ based on the node address given 
ope ! $9 ; the destination node address supplied in R4. 
£05 138¢ ; Determine the output LPD from the output adjacency. 
51 93 603 1564 fSTB eR ; Is this for area 0? 
8 1 6D7 1565 BEQL 140$ ; Br if yes - our “‘logical”’ area 
008B C2 1 91 06D9 1208 CMPB R1,RCBSB_HOMEAREA(R2) ; Are we in the same area? 
AC 13 peek 156 BEQL 146 ; Br if yes - same as Level 1 Router 
ovsc C2 «651 «491 «O6EO 1568 CMPB R1,RCB$B_MAX_AREA(R2) ; Is the destination area in range? 
24 «OA bees 1569 BGTRU N : Br if not = node unreachable 
$7 20 8241 3¢ 6E7 1570 MOVZWL @RCB$L_PTR_AOA(R2)CR1J,R7 ; Get the next area ADJ index 
1D 1 peer 1301 BEQL NOT_REACH : Br if not known - node unreachable 
O6EE 1258 240$: ; 
O6EE 1574 3; At this point: 
Q6EE 1575 : 
O6EE 1576 : R7 = Adj index 
BOEe 132% : R3 = LPD index or zero 
59 2C B247 D0 bere 1579 MOVL @RCBSL_PTR_ADJ(R2)CR7J,R9 ; Get ADJ address 
O6F3 1580 260$:_ ; 
O6F3 1581 ; At this point: 
O6F 1386 ; 
O6F3 158 ; R9 = Adj address 
O6F3 1584 : R7 = Adj index 
Ror 1383 : R3 = LPD index or zero 
58 53 9A O6F3 1587 MOVZBL R3,R8 3; Get path index, 0 => select it via ADJ 
04 12 O6F6 1588 NEQ 86$ : If NEQ then use it 
5 02 AD 9A O6FB 1589 MOVZBL ADJ$B_LPD_INX(R9),R8 ; Use LPD index for this adjacency 
58 28 6248 DO O6FC 1590 280$: MOVL  a@RCBSC_PTR_LPD(R2SCR8],R8 ; Get LPD address 
08 18 0701 1591 BGEQ NOT REACH : If GEQ then slot not in use 
07 ; 1336 ASSUME LPDSV_ACTIVE EQ 0 : 
04 22 AB €9 0703 15935 300$: BLBC LPDSW_STS(R8),NOT_REACH ; If LBC, circuit is inactive 
50 01 00 0707 1594 MOVL #1,R0 3 Success 
05 O70A 1595 RSB ; Return with success 
070B 1596 
re 1597 NOT_REACH: 
58 7C 07 1598 CLRQ R8 ; Clear ADJ and LPD address 
50 D4 07 1599 CLRL RO 3; No path available to node 
05 07 1600 RSB 
7 1601 
7 1606 -DSABL LSB 
7 160 
7 1604 
7 1605 
7 1606 
7 160 
7 1908 
7 160 
7 1610 


50 966 AB 00 
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NETDRVXPT = NETDRIVER Transport (Routing) * : 16-SEP-1984 AX/VMS Macro V04-00 Page 3 NETE 
dee TREGET ADD = Get putnut aby aga TBRe gree] 88s 8:30:88 ENETNCS. eae ine yoRvacr.mar:1 29° 23) rik 
51 FAAO 3C ti6 | 19 MOVZWL =-6(RO),R1 3; Get number of entries in CACHE 
gia 13 3 Scan CACHE 
54 @ 71A 1615 10$: tMPw {Rr )+,R4 ; Node address in cache? 
71D «(4 18 BEQL 0 : Br if found 
8 71F 19 TSTW (RO)+ : Skip fimer cell 
F6 51—SO#F 721 #1 13 5 SOBGTR R1,10$ 3 Keep lookin 
0 Be 4 4 1933 20$: pint RO : ure: node not in cache. 
50 01 »? 7 : 1621 30$: MOVL #1,R0 3; Success: found node in cache. 
0° OFS8 1658 ose 


K 4 
port (Routing) Layer 16-SEP-1984 Sear yaaeyes Macro V04-00 Page 34 


we ORyEeT = NETDRIVER Trens 
v04-000 TRSRCV_DIO_DATA = Rev Direct I/0 from da 5=-SEP-1984 NETACP.SRCIJNETDRVXPT.MAR; 1 (10) 
4 : 18 i ~SBTTL TRSRCV_DIO_DATA = Rev Direct 1/0 from datalink layer 
72B 1 3+ 
f 4 1° 8 : TRSRCV_DIO_DATA = Receive Direct 1/0 from datalink Layer 
728 16380 ; 
72B 1631 ; The IRP is hey returned by the data Link driver after a receive operation. 
4 ; 1° ¢ ; Statistics are taken and the packet is routed to its destination. 
72B 1634 ; The action is to remove the buffer from the IRP and to requeue the IRP to 
728 1635 ; the same device for another receive. The route-header in the message is 
72B 16 § 3 persed to determine the circuit over which the message is to be forwarded. 
Bf 4 1? 5: transmit IRP is allocated in order to shuttle the buffer to the device. 
0728 1639 ; 
0728 1640 ; INPUTS: R5 “Internal’’ IRP address 
Bf ; 196) : R4-RO Scratch 
0738 1848 IPL IPL$_IOPOST or NETSC_IPL 
O7eB 1645 : OUTPUTS: R5-RO Garbage 
$758 1ge9 : IPL Same as entry 
0758 1649 
$558 1650 TRSRCV_D1O DATA:: ; Rev Direct I/0 data from datalink 
or ¢8 1651 DSBINT #NETSC_IPL ; Raise IPL 
07CO 8F BB boRe 1936 PUSHR #*M<R6,R7,28,R9,R10> ; Save regs 
52 14 85 DO 0735 1654 MOVL IRPSL_ASTPRM(RS) ,R2 ; Get RCB 
10 AS 9A 0739 1655 MOVZBL IRPSL_AST(RS),R8 ; Get index of IRP*s LPD 
58 28 8248 D0 073d 1656 MOVL @RCBSC_PTR LPD(R2)CR8,R8 ; Get LPD address 
5 7E A2 =3C 0742 1657 MOVZWL RCBSW_TOTBOFSIZ(R2),R1 ; Get total buffer size assuming 
0746 1658 :; 6 byte route header 
51 16 CO 0746 1659 ADDL #TRSC_MAXHDR-6,R1 ; Adjust to account for largest 
0749 1660 ; possible route header (NI 
51 02 AO 0749 1661 ADDW #2,R1 3; Add 2 bytes for CRC16 just in case 
074C 1666 ; this is an X.25 DLM datalink 
004C 8F AS O74C 166 SUBW3 #CXBSC_OVERHEAD,- ; Reset byte count 
32 a5 (51 0750 1664 R1, IRPSW_BCNT(R5) ; 
Sree dee 
0753 1667 ; Detach the CXB from the IRP. Setup the BUFFAIL flag in CXBSB_R_FLG 
br 1869 : according to whether or not there is a spare CXB in the free queue. 
753 1670 ; 
56 4 A5 00 073 1671 MOVL IRPS$L_IOSB(R5) ,R6 ; Get buffer (CXB) address 
4A5 D4 075 1o76 CLRL IRPS$L_1OSB(R5) ; Erase former CXB pointer 
8A 94 O75A 167 CLRB CXB$B_R_FLG(R6) : Init CXB flags 
OOAO C D1 075D 1674 30$: CMPL RCB$Q-CRB_FREE(R2),- ; Any CXB's on free queue ? 
O0A0 D 761 1675 @RCBSO_CXB_FREE (R25 : 
1 13 764 1676 BNEQ 100$ 3: If NEQ then yes 
on 3 766 167 BSBW TESA LOCATE ; Else allocate one 
51 D 76 1978 MOVL R2,R 3; Copy buffer address 
52. 14 A5 DO 076C 167 MOVL RPSL ASTPRM(RS) ,R2 : Recover RCB address 
07 50 3 7 6 1939 BLBC RO, 408 : If LBC then allocation failure 
OOAO D2 61—SsOOE:s«O0773'—s«1681 INSQUE (R1),@RCBSQ_CXB_FREE(R2); Insert it on the queue 


L 4 
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NETORVXPT - NETDRIVER Transport (Routing) Layer “SEP=1984 3  VAX/VMS Macro V04-00 Page 35 NETC 
tee t TRSRCV_DIO_ - Rev Direct I[/0 tron da §- saath 83 3 ‘33 NETACP.SRCJNETDRVXPT.MAR; 1 ° (10) V04- 
03. = 78 BRB 100$ : Continu 
38 A6 96 tA 1 INCB CXBSB_R_FLG(R6) 3; Set BUFFAIL status in CXB 
7D } 
7D : Process the message and then requeue the Rcv IRP. Upon return 
£p ; from RCV_DIO_BIO, only the following register contents are valid: 
7D ; 
7D : Re = CXB pointer (0 if no CXB) 
7D 3 R5 = IRP pointer (0 if TRP has disappeared -- in which me 
7D 3 the CXB has been deallocated as well) 
7D : R2 = RCB address 
gp ; 
0048 30 7D &sBw RCV ees ; Goto common code 
a 09 8 MOVL : Cop IRP address 
42 13 O78 Beat 2008 : If QL none 
24 A3 78 dO . MOVL IRP$L_IOSB(R3) 5 Ut. CXB address 
13, 12 «0789 BNEQ F86$ : If NEQ then CXB was still there 
52 14A3 00 8E MOVL IRP$L_ASTPRM(R3) ,R2 ; Get RCB address 
56 O0OA0 D2 OF 8F REMQUE a@RCB$O_CXB_ FREE(R2), R6 ; Get the CXB stored there 
06 =#1C 94 BV 140$ : If VC then got one 
a CHECK Brig HEF FATAL 3; CXB should ~ =e oon there 
24 A356 00 140$: ove R6, IRP$L_IOSB(R3) 3; Store CXB addre 
66 48 Abd 9E 150$: MOVAB exese PRERDER(RO), (R6) 3; Setup message eearees (used for 


common processing with buffered 1/0) 
: Finish setting up IRP and requeue it to the datalink 


MOVL (R6), Get msg address 


WOwWwIwO>rrrr>rrrrrrowuon 
NNN NNN NSS NSN NAA AAOAOOOAOOOAAOASOAAA LP - 


a a a a a a a ee i ee a a ad dd OO 
WMIARIPIPINIPINININININ 2 9 OO | SM QOOODOOOCOCOCOOOOOOOOOOOWOMCrwoDcDcDGD  -14 
=OODNAOUE WN OO OONAUES WIN $0 OD NAME WN OOONAUE WN" OOONOvISwN Po 
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6 
A 
; 
54 66 00 : : 
56 00000000'GF 00 MOVL Gc RMe SCL SPTBASE, R6 : Get ayeres page table base 
9 EF C EXTZV S*#VASV_QPN,- ; Get Virtual page frame number 
51 54 15 E S“*#VASS_VPN,R4,R1 : 
2C AS = 6641—Cés«éO# 1 MOVAL (R6)CR1J,- 3 Enter SVAPTE 
6 IRP$L_SVAPTE(R3) : 
30 AS) «= 554~—Cfs«&FEOO BF AB : BICwW3 TRESU BOFEY >,R4,- ; Enter page offset of msg 
55 1¢C AS = O00 D MOVL IRP$L_UCB(R3) ,R5 3; Get UCB address 
00000000'GF 16 C1 JSB G*EXESALTQUEPKT : Requeue the receive 
C7 200$: ; 
C7 ; 
C7 
&f ; 
07CO 8F BA O7C7 POPR = #*M<R6,R7,R8,R9,R10>_~—-;: Restore regs 
cB ENBINT 3; Restore IP 
05 43 3; Return to Exec 


: Done. The IRP has been requeuved. Return empty-handed to the EXEC 


NETORVXPT - NETDRIVER Transport (Routing) 1‘ os 16-SEP-1984 AX/VMS Macro V04-00 Page 36 NETC 
thei TRSRCV_BIO_DATA = "hev Buttered 1/0. from ~SEP-1984 t 83: 36; 33 ENETACE.. SREINEDRVXPT.MARs 1 ey (11) vous 

ree \7 ; -SBTTL TRSRCV_BIO_DATA = Rev Buffered 1/0 from datalink layer 

7CF 1735 ;+ 

te Vf § ; TRSRCV_BIO_DATA = Receive Buffered 1/0 from datalink layer 

7CF 1738 ; 

7CF 17 § 3 The IRP is be returned by the data link driver after a receive operation. 

re en 3; Statistics are taken and the packet is routed to its destination. 

7CF 1o66 ; The action is to remove the buffer from the IRP and to requeue the IRP to 

O7CF 17435 ; the same device for another receive. The route-header in the message is 
7CF 17464; perece to determine the circuit over which the message is to be forwarded. 
oer 102? : transmit IRP is allocated in order to shuttle the buffer to the device. 

O7CF 1509 3 

Bree 1748 ; INPUTS: R5 "Internal’’ IRP address 
7CF 1749 ; R4-RO Scratch 

O7CF 1750 ; 

O7CF 1751; IPL IPL$_IOPOST or NETSC_IPL 

O7CF aT ; 

O7CF 17535 ; OUTPUTS: R5-RO Garbage 

O7CF 1754; 

O7CF 1755; IPL Same as entry 

O7CF 1756 : 

O7CF 1757 

O7 CF 1758 fRSRCV _BIO_DATA:: ; Rev Buffered 1/0 data from datalink 
7CF 1759 DSBINT #NETSC_I ; Raise IPL 

07CO 8F 6B 8508 1760 #°M<R6, Abt R8,R9,R10> ; Save regs 
58 10A5 9A 07D9 1766 MOVZBL IRPSL_AST(R5S) ,R8 : Get address - IRP's LPD 
52 AS DO O7DD 176 MOVL IRPSL “ASTPRM(RS) . Get RCB addres 
58 288248 DO O7E1 1764 MOVL arcesc PTR_LPD(R2)CR8I, Rb ; Get LPD addre 
56 2C AS D0 Bree 1765 MOVL RPSL_SVA PTE (R5) ,R6 ; Get butter (CXB) " pddress 
0B 13 7EA 1766 BEQL H 
38 A6) «694 «(O7EC «(1767 CLRB CXBSB_R_FLG(R6) : Assume CXB is available 
OC €1 O7EF 1768 BBC #XMSV~STS_BUFFAIL,- : If BS then DLL receive has 
03 3¢ AS O7F1 1769 IRPSL~10ST2(R5) , 208 > run out of receive buffers 
38 96 O7F4 1770 INCB CXB$B_R_FLG(R6) 3; Mark CXB as unavailable 

O7F7 1771 208: 3 

O7F7 a; : 

O7F7 177 ; Process the message and then requeue the Rcv IRP. Upon return 

O7F7 1774 3; from RCV_DIO_BIO, only the following register contents are valid: 

O7F7 1775 3 

ta 1226 3 
7F7? «(177 : R6 = CXB pointer (0 if no CXB) 

O7F7 1778 5 RS = IRP pointer (0 if IRP has disappeared -- in which feee 
7F7 «1779 : he” CXB has been deallocated as well) 
7F7 1780 s R2 = RCB address 
7F7 «(1781 : 
7F7? «(17 ¢ . 

0028 30 O7F7 17 6sw RCV, p10_B10 ; Goto common code 
53 9 7FA 1784 MOVL : Cop ~ address 
18 413 O7FD 1785 BEQL Bo 3; If 
2C AS) =6560=—S iO sC*OO7FF «O17 § MOVL Roe IRPS$L_SVAPTE(R3) : Send (xB. beck with IRP (0 if no CXB) 
32 AS))OSFFF BF) OB 03 17 MOVW X<3FFFS Lite gPENT (RS): Reset Byte count 
55° 1C AS OD 09 1788 MOVL [nest HeBtRs ; Get UCB addre 
05.1 OD 1789 BNEQ : If NEQ on? real” datalink 
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BRB ; Continu 
JSB G*EXESALTQUEPKT $ Kequsus the receive 


= 


Done. The IRP has been requeved. Return empty-handed to the EXEC 


OPR #*°M<R6,R7,R8B,R9,R10> | eee rges 
BINT ; Restore IP 
3; Return to Exec 
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NETDRVXPT - NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 38 
Wo4e 600 RCV_DIO_BIO - fonnen Receive IRP process g-8e 1384 83:30:38 ENETACP. SREINE YDRVXPT MAR: 1 ° (12) 
-SBTTL RCV_DIO_BIO - Common Receive IRP processing 
he 
; RCV_DIO_BIO = Common Receive IRP processing 
: Finish processing of the received buffer. Determine size of message 
; and check for success of the read request. 
: INPUTS: R10,R9 Scratch 
: R8 LPD ptr 
; R Message buffer pointer 
: R "Internal’’ IRP address 
3 R3-R4 Scratc 
; RCB ptr 
$ RO-R1 Scratch 
: OUTPUTS: R8,R7 Garbage 
: R6 Address of buffer to deallocate 
§ ; 0 if no buffer is to be deallocated 
H R5-RO Garbage 
3 RCV_D10_B10: Common buf fered/direct receive code 
sf 
26 
4 
D 
20 
20 
2D 
2D 
¢ 


] 
| 
| 
| 
| 
| 
| 
Indicate no buffer attached | 
| 
| 
| 


me mm em dt ed od od td = SS 2 8 wd ws = 2 = = 2 = 2 2 2 os FS 2 


00° B0 $“*#10$_READLBLK,- ; Reset 1/0 function code 
20 AS IRP$W_FUNC(R5) : 
2C AS 4 CLRL IRP$L_SVAPTE(R5) ; ’ 
32 38 AS ED BLBC IRP$L_IOST1(R5) ,50$ ; Br if 1/0 was unsuccessful 
; Process the received message 
57 B3AAS 3C MOVZWL IRPSL_IOST14#2(R5),R7 ; Get transfer size 
28 S13 $4 BEQL 40$ : If EQL, no message 
19 38 A6- ED 33 BLBC CXBSB_R_FLG(R6) ,20$ :; If BC then datalink doesn't need the 
37 ; buffer back (i.e., no BUFFAIL) 
1c AS ODS +H TSTL IRP$L_UCB(R5) ; Is there a UCB ? 
| ioe} A BEQL : If EQL no, the ‘Local LPD’’ 
3¢ INCPMS RCVBUFFL ; Update the PMS counter 
oc 10 42 4 BSBB 208 ; Dispatch on message type 
56 «D5 44 4 TSTL R6 ; Was buffer consumed? 
16 12 46 4 BNEQ 40$ : If not, then return IRP/CXB to caller 
32 AB «655 ~=««éDO 48 4 MOVL R5,LPDSL_RCV_IRP(R8) : Save the IRP address -- its 
4C 4 3; presence also serves as a flag 
55 4 4C 4 CLRL R5 ; Don't requeue this IRP to datalink 
OE 11 ‘f : BRB 40$ ; Exit 
: : ; Normal case. Datalink is not starved for receive buffers. 
5 5 ‘ 
44 a5 B60 5 54 208: MOVW IRP$Q_STATION+4(R5),- ; Get source node address 
36 Ag 5 5 CXB$W_R_SRCNOD(R6) > save it in the CXB 
5 DD 5 5 PUSHL R2 ; Save IRP address 
55s =4 57 5 CLRL R ; Make sure DISP doesn't use IRP 
Of 10 59 5 BSBB B) SP ACV ASS ; Dispatch rev'd message 
55 8&D0 58 5 POPL R ; Recover IRP address, fix stack 


C5 | 
nsport (Routing) Layer 16-SEP-1984 01:37:53 VAX/VMS Macro Vv04-00 Page 39 | 
on aod Receive IRP process mats fi 83:30:38 NETACP.SRCIJNETDRVXPT.MAR; 1 ° (12) 


NE TDRVXPT 
v04-000 


40$: RSB 


Done 


PWN OOONOUS WO Oe 


186 

186 

186 

186 

! ? 50$: : 

186 : The Datalink has gone inactive. Requeue the IRP to the ACP to 
| ? 3 inform it of this event and dellocate the I/0 buffer. 

186 : 

187 MOVL R6,1RP$L_IOSB(RS) ; Setup CXB address for deallocation 
1 4 esey TRRTRNIRP ; LPD is shutting down, return IRP 
187 : 

187 


| 
Indicate the CXB was consumed 
| 


j 

| 

d 5 | 

DRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 40 | 
-RCV_MSG Dispatch rev'd oessege -$Eb=1 3b $3 :30;38 NETACP.SRCJNETDRVXPT.MAR; 1 7 (1 )| 
69 1876 .SBTTL DISP_RCV_MSG Dispatch rev'd message | 

69 1 8 3+ 

434 ! 4 ; DISP_RCV_MSG = Dispatch rcv'd message 
+84 1 1 ; Process the received message by dispatching to the appropriate action | 
$03 | ¢ ; routine. The most frequent case is a message with a Phase III route-header. 

+493 1 bs : ALL ECL message type codes are currently constrained to have their low two 

0869 1885 ; bits clear so that they aey be distinguished from Transport message headers. 

+493 : 56 ; The first byte of the received message should be one of the following: 

OBes 1888 : 

0869 1889 ; <0000 1000> Phase II NOP 

0869 1890 ; <0101 1000> Phase II Start 

0869 1891 ; 

0869 1336 : <0100 xx10> Phase II route header 

0869 1893 ; <000x x010> Phase III route header 

0869 1894 ; <000x x010> Phase IV non-broadcast circuit route header 

bees 193? ; <00xx 0x10> Phase IV broadcast circuit route header 

0869 1897 ; <0000 0001> Phase II] init | 

0869 1898 ; <0000 Bot Phase III verification 

0869 1899 ; <0000 0101> Phase III hello message 

0869 1900 ; <0000 0111> Phase III routing message 

0869 1901 ; <0000 1001> Phase IV Level 2 routing message 

0869 1908 ; <0000 1011> Phase IV broadcast circuit Router Hello message 

+484 13b7 ; <0000 1101> Phase IV broadcast circuit Endnode Hello message 

0869 1905 ; ALL ECL message type codes are currently contrained to have their low 

0869 1906 ; two bit clear so that they may be distinguished from Transport message 

0869 1907 ; headers. 

0869 1908 ; 

0869 1909 ; 

0869 1910 ; INPUTS: R10,R9 Scratch 

0869 1911 ; R8 LPD ptr 

0869 1315 3 R7 Total bytes in message 

0869 1913 ; R6 Message buffer pointer 

0869 1914 ; R3-R5 Scratch 

0869 1915 ; R2 RCB ptr 

0869 1916: RO-R1 =§=Scratch 

0869 1917 ; 

p8e8 1918 ; OUTPUTS: R8,R7 Garbage 
869 1919 ; R6 Address of buffer to deallocate 

0869 1920 ; f no buffer is to be deallocated 

0869 1921 ; R5-RO Garbage | 

0869 19 § : 

0869 1928 i= | 
869 1924 DISP_RCV_MSG: ; Dispatch rcv'd message 
869 1925 MOVB #DYNSC_CXB,CXBS$B_TYPE(R6) ; Store standard buffer type 

6D 1926 MOVL R6), ; Get msg address | 
70 1927 MOV LPDSW_PTH(R8) ,- ; Setup receive path i.d. | 
73 (19 8 CXBSW-R_PATH(R6) : | 
75 (19 MOVW RCBSWTADDR(R2),- ; Setup default destination node 
78 1930 CXB$W"R_DSTNOD(R6) ; (assume non-route-thru) 
7A 1931 MOVZBW LPDSB_PTH_INX(R8) ,- ; Store LPD index as ADJ index 
7D 1932 CXBSW"R_ABJ(R6) : Cin case we need to send to ACP) 


. 3 
N ears - NETDRIVER Transport (Routing) Layer 16-SEP=1 AX/VM cro V04-00 
vee DISP_RCV.MSG Dispatch rev'd message Breer obe 02:50:88 YNETACE. cae imeyoRvaor.mars1 2% 
7F 1933 3 
7F 1934 3; For the X.25 circuits we will calculate the CRC16 on the 
gr 13 : oe portion of the message and check to make sure the data 
3 va 
7F 19 . 
1E 22 ag 07 E1 O87F 19 8 ac wLPOSV X25, LPD$W_STS(R8), 9 Br if not X.25 path 
5 § i 4 19 SUBL : Remove gnc from size 
? 3 FH 8 t +4 Buea a cp ; ia rece ee Bi. size = 0-2, report error 
° 3; Save re 
02 Al 57 00 570 CF QB O88C 1306 CRC eReIO® ‘0, R7,2(R1) § Calcula e CRC16 on data 
51 B8E& 7D 0894 194 mMOVQ (SP)+,R 3; Restore registers 
81 30 B1 0897 1944 CMPW RO Rig : Does the CRC match? 
0 13 9A 1945 BEQL 5$ ; Br if okay 
0218 31 +935 1305 3$ BRW PFE ; Else, treat as Format Error 
66 51 DO O89F 1948 S$: MOVL R1, (R6) 3; R t int 
OBA 1348 - eset message pointer 
OBA 1352 ; : Strip off leading pad bytes 
OE 61 07 +€5 QB8A2 195 BBCC #7,(R1),10$ ; Br if not padded 
50 61 9A OBAS 1954 MOVZBL (RI) .RO S Pick up ped Lenath 
51 50 CO O8A9 1955 ADDL RO,R1 ; Point to first byte of message 
66 51 DO OQOBAC 1956 MOVL R1, (R6) ; Reset message pointer 
57 50 C2 OB8AF 1957 SUBL RO,R7 : Adjust message length 
eB 15 paee 1336 108 BLEQ 3$ ; Br if bad message 
pee? 1oet ; Z Find the adjacency using the source address of the message. 
OA €1 08B4 196 BBC #LPD$V_BC,- ; Br if NOT a Broadcast circuit 
7A 22 AB 0886 1968 LPD$W7STS(R8) ,40$ : we 
0889 1965 : Get address of the ‘Designated OA'', DRT. 
05 91 0889 1967 CMPB #ADJSC_PTY_PH4N,- : Are we an Endnode? 
1D A8 08BB 1968 LPD$B_ETY(R8) ; .-checked on LPD 
54 2c AR Se OBBr 1990 MOV ZWL 13 DRT(RB), t Eee dente ted output adj ind 
esignated o adjacency inde 
59° 2c°B244 0 OBCS 1971 MOVE, SREBSE PTR ADI CR2)CRGI, nb Se eeeaigretge output adjacency index 
11 oatt 1978 158 BRB 60$ : Continue A ate code 
ORCA 1974 ' : For Broadcast Circuit, we will first try the OA vector 
O8CA 1975 : to look for a match in the ADJ database. If we find a 
peta 1376 : match then we've got the ADJ, else we will assume this 
CA 197 ; message came from a Broadcast Router and scan the BRA 
Osea 1or8 : portion of the ADJ vector. 
OA EF O8CA 1980 EXTZV  #TR4$SV_ADDR_AREA ; Get the area number 
53 36 A6 «(06 C 1981 #TR4$S— “ADDR— “AREA, CXBSW_ R. * SRENOD (ROD sR 
gf 13 Dd 19 ¢ BEQL 18$ If area = 6: assume our area 
008B C2 3.6C(9!1 D2 19 CMPB R5,RCB$B_HOMEAREA(R2) : Our area? 
29S «12 D7? 1984 BNEQ 2 3 If net. then skip OA optimization 
> D9 1985 18$: EXTZV #TR4$V_ADDR_DEST, Get e number within area 
53 § A DB 19 § #TR4$S-ADDR-DEST “cx $W_ R. * SRENOD RE)” R3 
A 3 Bl O8DF 19 CMPW = s«R'3RCBSW_MAR_ADDR(R2) Is $ yaar ddress in range? 
03 «18 BES 19 é BLEQU 208 ; 
O20F 31 —5 19 BRW RANGE S les, tédress out of range 
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NETDRVXPT - NETORIVER Tra 
yO45000 ~ DISP_RCV_MSG Dispatch rcv'd message SEP=-19 NETACP.SRCIJNETDRVXPT.MAR; 1 
5, 1c B243 3 ORES 1990 208:  MOVZUL QRCBSL_PTR_OACRZDERSI.RG ; Get ADJ index 
1 1 ED 1991 BEQL 3$ ; Br if new adjacency 
59 2C_B244 00 EF 1336 MOVL ARCBSL_PTR_ADJ(R2)CR4J,R9 ; Get ADJ address 
36 Ag gt Fs 1993 CMPW CXBSW_R_SRENOD(R6) ,- ; boes the node address match? 
07 «12 th 1995 BNEQ 238 * ; Br if not 
02 a9 «#91 «(O08FB 1996 CMPB = ADJ $B_LPD_INX(R9),- : Is this the right LPD? 
2 Ag OBF 199 LPD$B~PTH~INX(R8) : 
4 13 444 1238 BEQL 60$ ; Br if yes 
34 300 : Now try scan of entire ADJ database for the node 
53 36 A6 =3C $30 O9¢ 238: MOVZWL CXB$W_R_SRCNOD(R6),R3 =; Get full source node address 
54 Oc Ag 9A 0906 200 MOVZBL RCBSB-MAX_LPD(R2),R4 ; Get number of LPD's in system 
55 68 A 3¢ Bape 004 MOVZWL RCBSW_MAX_ADJ(R2),R5 ; Get number of routing ‘destinations’ 
14 12 +3 005 BNEQ 30$ ; Start at BRA's, if any 
16 11 091 B06 BRB 5$ : Else, skip it 
59 2¢ B244 00 O91¢ 007 25$ MOVL  @RCBSL_PTR_ADJ(R2)CR4],.R9 ; Get next ADJ 
04 A9 53 B81 091 008 CMPW R3,ADJ$SW_PRA(R9) ; boes the node address match? 
07 12 O91B 2009 BNEQ 30§ : Br if no - skip to next ADJ 
02 A9 91 091D 2010 CMPB = ADJ $B_LPD_INX(R9),~ : Is this the right LPD? 
20 AB 0920 011 LPD$B~PTH~INX(R8) : 
21 13 0922 Og BEQL 0 ; Br if yes 
FA 54 55 F3 0398 A 30$: AOBLEQ R5,R4,25$ ; Loop if more BRA ADJ's 
+4 : Bi? : If scan jails, then use the ‘‘main'' ADJ (where RUN flag is off) 
54 220A 9A 0928 th 35$: MOVZBL LPD$B_PTH_INX(R8),R4 - Use the ‘‘main’’ ADJ 
59 2C B244 DO 092C 2018 MOVL  a@RCBSC_PTR_ADJ(R2SCR4],R9 ; Get ADJ address 
12 11 09351 2019 BRB 60$ ; Skip reset of Listener timer 
0933 5051 
0383 8 § : For non-Broadcast Circuit, use ADJ index in the LPD 
54 OA 9A $33 024 40$: MOVZBL LPD$B_PTH_INX(RB),R4 ; Get the ADJ index (same as LPD index) 
59 2C B244 D0 0937 2025 MOVL @RCBSC_PTR_ADJ(R25CR4].R9 ; Get the ADJ address 
01 €1 093¢ 036 BBC #ADJ$V~RUN;- : If ADJ isn't up 
05 69 O93E 20 ADJ$B_STS(R9) .60$ ; skip reset of istener timer 
08 Ad =: BO pae8 028 MOVW ADJ$W_INT_LSN(R9) ,- ; Reset “‘Listen’’ interval 
OA AD 094 029 ADJ$W_TIM_LSN(R9) : 
Be ee 
eg O38 > Save the source ADJ index in the CxB 
3A A6 «654 «BO 0348 ° : 60$: hove R4,CXBSW_R_ADJ(R6) ; Save the source adjacency index 
0349 0 § : Journal the received message. 
349 6 8 v IF DF, JNXSSS 
50 01 43 949 2040 MNEGB #1,R0 ; Set journal type = Received msg 
083F Ree a BSBW TR_FILL_JNX ; Store journal record 
94F rk -ENDC 
Scr 50c8 
94F 2046 : Parse the message and dispatch. 
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NE TDRVXPT - NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 43 
vO4-000 DISP_RCV_MSG Dispatch rev'd aessege ~SEP-1984 3:30:38 NETACP.SRCIJNETORVXPT.MAR; 1 . (13) 
O4F 47 : 
94F ‘3 ; On input, R9 always points to an ADJ block. If ADJ$V_RUN=0, 
94F 4 ; ~=othen the message was received on an ADJ which hasn't yet been 
94F 29 i = initialized. 
94F 1 : 
94F 26 
55 81 9A Q94F 5 MOVZBL (R1)+,R5 ; Get message type flag 
95 54 ASSUME TR3$V_MSG_CTL EQ 0 
28 55 + €8 095 55 BLBS RS th : If LBS then control msg 
0D 55s 01 5} 095 2$ BBC #TR3SV_MSG_RTH,R5,75$ : If BC then NOT a route header 
01 A9 «991 0959 205 CMPB = ADJ $B_ PTYPE(R95 ,= : If Phase II connection 
02 099¢ 098 #ADJST_PTY_PH2 ; then skip VER check (singe VER is 
04 13 095D 5 BEQL 74$ ; the same bit as RTFLG_PH2) 
O95F 2060 ; Else, for non-PH2 circuits, 
2F 55 96 0 O95F 2061 BBS #TR4SV_RTFLG_VER,R5S,90$ ; If version bit set, ignore msg 
005 1 goes b6¢ 74$ BRW TR_RTHBR ; Else, must be a route header 
O36 bee ; The message doesn't have a router header. Assume Phase II 
08 55 91 0966 2066 758:  ¢CMPB  R5,#TR3SC_MSG_NOP2 ; NOP message ? 
27) =613) «0969 «2067 BEQL ; If EQL yes, ignore it 
58 8F 55 91 0968 2068 CMPB R5,#TR3$SC_MSG_STR2 ; Is it a Start massage ? 
1— 13 O96 069 BEQL «=s«aB5$ : EQL => UNKNOWN MESSAGE 
0971 2071 ; It's a Phase II data message. Since the message didn't 
0971 Ors ; have any route header, we must store the source node from 
895) 1 3; the adjacency for this circuit. 
01 €1 0971 2075 BBC #ADJSV_RUN, - ; If the ADJ is not known, 
05 69 0973 2076 ADJ$B_STS(R9) 778 ; then leave node address = 0 
04 A9 BO 0975 2077 MOVW ADJ$W_PNA(R9) ,- ; Save source node address 
36 A6 0978 2078 CXB$W_R_SRCNOD(R6) 
51 66 D0 O97A 2079 77$: MOVL (R6) ,R1 ; Point to first msg byte 
0109 31 097D 2080 BRW TR_ECL ; Pass to ECL layer 
0980 2081 
0980 oag $ " 
0980 208 ; NOTE - ALL offsets to the ‘‘Hello’’ message are off by i byte - 
3444 bee 3 from MOVZBL (R1)+... above. 
$980 086 80S: 3; Transport Layer control msg 
55 05 91 098 087 CMPB #TR3SC_MSG_HELLO,RS5 : ‘Hello’ msg ? 
OD 13 0983 2088 BEQL ; If EQL yes, ignore it - 
55 OD 91 QO9 089 CMPB #TR4$C_MSG_BCEHEL ,R5 : Phase IV BC Endnode ‘Hello msg? 
9 13 0988 bay BEQL 100$ ; Br if yes ; es 
55 B 91 O98A 91 CMPB #TR4$C_MSG_BCRHEL,RS ; Phase IV BC router ‘'Hello’’ msg? 
$i 13° 0980 O38 BEQL ADJ_UP ; Br if yes 
0175 31 O98F 20935 85$: BRw UNK ; Else message type unknown 
05 099 094 90$: RSB ; Done 
ah 838 
H4 4 3 : Process a broadcast endnode ‘'Hello’' msg, reset ‘‘Listener’’ timer. 
01 €1 099 099 100$:  6BC #ADJSV_RUN,~ : If the ADJ is not known, | 
19 99 99 100 ApJse STS(R9) ,ADJ_UP : report ‘‘new edjacency to NETACP 
1E 7 D1 099 101 CMPL R7, #30 i Is message big enough? 
1A 15 Q99A 21 ¢ BLEQ PFE_BR ; Br if not, error 
01 a9 «91 «(099C 21 CMPB = ADJ SB_PTYPE(R9) ,- ; Has the node type changed? | 
! 
| 
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NE TDRVXPT - NETDRIVER Transport (Routing) Layer 16-SEP-1984 Se HA 3:37:53 yaaeyes Oe cro V04-00 Page 44 4 
v04-000 DISP_RCV_MSG Dispatch rcv'd message “SEP=1984 02:20:38 (CNETACP.S REIN NETDRVXPT.MAR; 1 (13) V 
05 b444 19 #ADJSC_PTY_PH4N 
OE 12 Q9A 105 BNEQ p~ 3 es, tilt shay up 
06 A9 «OA Al” Bi Boa 196 CMPW 10(R1) ,ADJSW_BUFSIZ(R9) ; eS alk IZ still okay? 
07 is 9A 10 BNEQ ADJ_UP ; Br if not, adjacency 
08 AD «6B 9A9 2108 MOVW ADISW. INT_LSN(R9) ,= $ an. Reset a4 isten™ timer 
OA Ad 9AC 2109 ADJ$W_TIM-LSN(R9) 
E2 11 O9A 110 BRB 90$ ; And ignore the ms 
bee 111 ADJ_UP: ; Adjacency UP even 
380 5113 
$e We : lo message, then le “the NETACP reset the ‘Listener'’ timer. 
g¢ 90 098 116 MOVB  #NETMSG$C_ADJ,RO F Set up event code 
0154 31 Beez Wie BRW TO_ACP ; Pass it to the ACP 
OOFE 31 0986 2119 PFE_BR: BRW PFE ; Packet format error 


Ad ai pcency up processing, if we receive a Router's Broadcast 


NETDRVXPT - we TORT VER Transport (Routin ) Live 16-SEP-1984 01:37: AX/VMS Macro V04-00 Pa 
; -000 TRLRTHDR = Process rev'd msg's ; aye! hea etsy $3 :30;38 ENETACP. SRCINETDRVXPT.MAR: 1 - 


8 } 1 .SBTTL TR_RTHDR - Process rcv'd msg's route header 
989 21 : 3+ 
443 } 5 ; TR RTHOR - Process received message's route header 
9B9 21 : : 
989 2128 ; INPUTS: R10 Scrat 
989 2129 ; Rg ADJ address (RUN flag may be ‘‘off'*) 
9B9 2130; R LPD addre 
9B9 2131; R pegsoge size 
B9 21 § : Re CXB address 
BY 21335; Re Contents of first byte in message 
09B9 2134; R4,R3 Scratch 
0989 2135; R2 RCB address 
989 21 $ ; R1 Ptr to second byte in message 
989 21 3 RO Scratch 
09B9 2138; 
0989 2139 ; OUTPUTS: R6 0 if CXB was consumed, else preserved 
0989 2140 ; 
09B9 2141 ; 
0989 136 _- 
0989 2143 TR_RTHDR: ; Process rcv'd msg's route-header 
2355 06 €1 hoes Ve BBC #TR3SV_RTFLG_PH2,R5,20$ ; If BC then Phase III route-header 
O9BD 2146 3 
QO9BD 2147 3; Process Phase II header 
09BD 2148 ; 
09BD 2149 : 
05 69 O01 #+2€1 O9BD 2150 BBC #ADJSV_RUN,ADJ$SB_STS(R9),10$ ; Br if ‘'main’’ ADJ 
04 A9 BO O9CI 151 MOVW ADJ$W_PNA(R9) ,=- r Save source node address 
36 A6 09C4 136 cx BSu. R NERCNOB (RG) 
50—s«#Bl 9A 09C6 21535 108: MOVZBL (R1)4#>RO ; Get size of dest. node name 
51 50 co 14 154 ADDL RO,R1 3; Advance to src node name 
57 50 A2 Q9CC 2155 SUBW ; Subtract from total 
50 81 9A O9CF 156 MOVZBL nO. ny" RO 3; Get size of src node name 
57 50 A2 B38 157 SUBW 3; Subtract from total 
51 50 CO 09D 158 ADDL *R1 ; Advance pointer 
57 03 A2 0908 2159 SUBW *R7 ; Account for count field and 
09DB 2160 3 msg ge byt 
D9 «615 O90B 2161 BLEQ PFE_BR 3 a vaLer’ Packet Format Error 
00A1 31 0900 166 BRw 100$ 3 i continue in common 
+4 197 20$: 3 
3 186 : Process Phase III or Phase IV route header 
9E0 216 : 
02 EO O09E 168 és #TR4SV_RTFLG_LNG,- : Is this a Phase IV Long packet? 
4A 5 REE 199 R5,50$ ; If so, parse as suc 
49] 4! 3 Process only Phase III and Phase IV non-broadcast route hdr 
57 06 a 9E4 138 SuBw #6,R7 3 fecoynt tor message header 
D 15 Q9E7 217% BLEQ PFE BR : Br if pac ket format error 
39 1 3 9E9 2175 MOVZ7WL (R1IT+,RO 3; Get destination node address 
4 1 9EC 176 MOVZWL (R1)+,R4 3; Get the source node address 
SEF 17 ASSUME ADJSC_PTY_PH3 EQ 0 
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NE TDRVXPT = NETDRIVER Transport cyt ua a Ie 
v04-000 TRLRTHDR = Process rcv'd msg's route hea 5-SEP-1984 02: NETACP.SRCJNETDRVXPT.MAR; 1 (14) V 
SEF 217 ASSUME ADJSC_PTY_PH3N EQ 1 
01 A9 91 OQDEF 155 CMPB #Aps8t PTYPE CR * ; Is this a Phase III node's msg? 
01 OF 180 C_PTY_PH3N : 
19 1A O9F 181 BGTRU ; Br ifn 
0088 FO O9F 1 ¢ INSV acess eae)» - ; Else, Mt in the Area of the dst, 
A 9F9 21 VLA AREA, 3 node address with our ‘‘homearea’’ 
50 8 OFA 184 #TR4$S— ADDR “AREA, RO ; 
FC Al BO O9F 185 MOVW R m? ; Reset the dst pode. address in msg 
A ED OA 1 ‘ CMPZV ATROSV_A AREA, ; Is the source ‘‘ar 
00 54 06 A 1 #TR4$S— “ADDR AREA, "Rb, #0 ; ro? 
ig A 1 3 BNEQ 30 ; Br 7S no - leave it alone 
0088 f F AQ? 21 INSV it te | gy hee - ; Else, fill in the Area of the source 
A AOB 2190 #TR4$7_A A,- : node address with our ‘‘homearea’’ 
54 06 AOC 2191 #TR4$S— ADDR “AREA. RG ; 
FE Al 54 B60 nos 136 MOVW Ree -2(R1 ; Stuff it back into the message 
36 AB =6554—StC«iBDsC#*OAAI 193 30S: MOVW *CXB$W_R_SRCNOD(R6) ; Save the source node address 
50 (OE ag Bl OA16 219% CMPW Rcésu _ADBRTR2) ,RO : Is this for the local node? 
6 13 ts 195 BEQL 80 : If EQL then its for ECL 
50 008) C2 61 OAIC 139 CMPW RCBSW_ALIAS(R2) ,RO : Is this for our alias? 
5C 13 OA21 219 BEQL 80$ : If EQL then its for ECL 
50 B65 OA23 2198 TSTwW RO : se boot with address 0 
pA 5 2199 3@ is this extra check really needed? 
58 13 OA25 00 BEQL 80$ : If EQL then its for ECL 
54 01 Al 9E OA27 01 MOVAB 1(R1),R4 3; Point to start of data 
OOFA 31 OA2B ¢ 40$: BRW TR_RTHRU ; Else, its a route-thru packet 
pase 0 
OA2E 04 3 
_ : soe ; Process a Phase IV Broadcast Circuit header (long format) 
57 15 a OA2E 344 50$: SuBW #21,R7 ; Account for message header 
83 15 0A31 08 BLEQ PFE_BR : If LEQ, report Packet Format Error 
51 06 co = 3 444 ADDL #6 3; Skip S-AREA and S- oa and HIORD 
50 81 3C 0OA36 10 MOVZWL (R1)+,RO 3 Get Destination addres 
51 06 co OAR $13 ADDL #6,R1 3; Skip S-AREA and S- SUBAREA and HIORD 
BAe 13 ; If this is an Endnode circuit, then update the endnode cache 
05 =«91 ae 15 CMPB #ADJ$C_PTY_PH4N,- ; Are we an endnode? 
1D A8 OA 1 Sse Ety(R8) 3: ..ONn this LPD (only PH4 can have BCs) 
OC 12 OA4 1 BNEQ 5$ ; Br if n 
OA €E1 OA4 18 BBC #LPD ; Br if NOT a Broadcast Circuit 
07 22 A8 A44 19 (bps VeF stag »,55$ 3% ..this check may be reeuneent' 
0355 04 €0 OA47 0 BBS PTReSO RTF GATS RS, 55S : Br if this is an RTS packet 
A4B 1 3 then the source address is invalid 
O3FF 30 OA4B § BSBW UPDATE_CACHE ; Else, update the cache entry 
36 A6 $} 80 nes 55$: MOV (R1)+,CXB$W_R_SRCNOD(R6); Enter the source node address 
1 D6 OAS 4 INCL :; Skip over NEXT LEVEL 2 ROUTER 
50 OE A B1 0A54 5 CMPW RCBSW_ADDR(R2) ,RO ; i ie ser the local node? 
2 13° O0A58 § BEQL ; Br if y okay 
50 008D C 1 Aen CMPW RCBSW_ALIAS(R2) ,RO 3 is his. for the. local alias? | 
1C 3 OASF 3 BEQL ; Br if yes - okay | 
54 03 Al 9E 0A61 MOVAB (R1),R4 ; Assume route thru message, preset 
rts 0 ; R4 to point past the header 
50 B65 OA6 1 TSTW RO 3;.We boot with address 0 
A6?7 § it is this extra check reethy needed? 
C2 12 OA67 BNEQ 40$ : Br if no - route the packe thru 
F9 Al QO0400AA BF D1 O0A69 4 CMPL #TR4$C_HIORD,-7(R1) ; Does source HIORD match? 
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oa yonyers = NETDRIVER Transport {Gout ing) Layer 16-SEP-1984 }: 337: a ea AX/VMS Macro v04-00 Page 47 We 
v04-000 TRLRTHDR = Process rcv'd msg'sS route hea 5-SEP-1984 02:20:38 (CNETACP.SRCINETDRVXPT.MAR; 1 (14) 
44 12 OA? 5 BNEQ PFE ; Br if not = format error 
F1 Al QOO0400AA 8F D1 OA? CMPL #TR4SC_HIORD,-15(R1) ; Does destination HIORD match? 
A ig A7B BNEQ PFE ; Br if not_= format error 
. § A7D § gps: TSTW (R1)¢ i Skip visit and_S-CLASS 
1 D6 OA7F $: INCL R1 ;_Skip Protocol Type 
As) 40 100$: ASSUME prey RTFLG_RTS EQ TR3$V_RTIFLG_RTS 
9% 55 % 1 OA81 4 BBC #TR3S0_RTFLG_RTS.R5,1108; Br if not return-to-sender packet 
8 AG 02 88 OA 3 4 BISB 2,CXBSB_R_FCG(R6) ; Else, indicate a RTS packet 
n 4 2 110$ ; Fall thru to TR_ECL 
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DRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 

L ad Pass Rev'd Packet to ECL Set y 7 $3330 :88 ENETACE. SREINETDRVXET MAR: 1 
a9 <8 -SBTTL TRLECL - Pass Rev'd Packet to ECL 

ARQ ‘3 3+ 

OA 2 2 s TRECL - Pass Packet to End Communications Layer 

A89 i? ; INPUTS: R10,R9 Scratch 

Oa 9 ee ¢ ; R8 LPD address associated with receiving datalink 
ago 3 3 R?7 Size of ECL message 

bass 54; R6 Received CXB address 

A89 2755 ; R5-R3 Scratch 

OA89 2$ 3 2 RCB address 

pane 2 $ R1 Points to first byte in ECL message 

A8&9 8 3 RO Scratch 

OA89 59 ; 

wt 60 ; CXB$W_R_SRCNOD Source node address 

OA89 61 3 CXBSW_R_DSTNOD Destination node (the ECL) address 
OA89 6¢ ; CXB$B_R_FLG Low bit clear if CXB can be consumed 
0A89 $e ; Low bit set if CXB must be returned 
OA89 64 ; 

OA89 2265 ; 

OA89 66 ; OUTPUTS: R8,R7 gerbage 

QA89 67 ; 6 0 if CXB was consumed 

0A89 68 ; Else, CXB address 

OA89 69 ; R5-RO Garbage 

OA89 70 ; 

0A89 71; 
0A89 $6 :- 

O0A89 r TR_ECL ; Pass rcv'd packet to ECL 
OA89 se BUMP L,LPD$L_CNT_APR(R8) ; Update ‘arriving pkts rcvd' 
OA9 75 INCPMS ARRLOCPR tee and the PMS database too 
OA9 5/6 MOVW R7,CXBSW_R_BCNT (R6) ; Setup ECL message size 
OA9IC 77 MOVL R2,CXB$L_R_RCB(R6) : setup RCB pointer 
QAAO $558 3% perhaps CXB...RCB is not needed 
QAAO 2279 MOVL R1,CXBSL_R_MSG(R6) ; Point to ECL message 
OAA4 80 CMPZV #TR4$V_ADDR_AREA,- ; If the source area number = 0, 
QAA6 81 #TR4$S_ADDR_AREA,- 
OAA7 Be CXBSW_R_SRCNOD(R6) ,#0 
QAAA 8 BNEQ 
OQAAC 84 INSV RCB$B_HOMEAREA(R2) ,- ; then insert our home area 
OABO 85 #TR4$0_ADDR_AREA,- 3 to ensure that NSP matches node 
QAB1 86 #TR4$S_ADDR_AREA,- 3; numbers correctly 

OAB2 2287 CXBS$W_R_SRCNOD(R6) 

ABS 3 10$: : 

ABS ; 

nae $ ; Call the ECL Layer with the following: 

ABS 3 : R8 Scratch 

ABS 9 : R7 Size of ECL message 

AB4 94 3 R6 Received CXB address 

ABS 95 : R5-R3 = Scratch 

ABS 9 : R2 RCB address 

ABS 9 3 Ry Points to first byte in ECL message 

at 2 3 RO Scratch 

ABS 0 ; CXBSL_R_RCB RCB address (copy of R2) 
AB4 1 3 CXBSL_R_MSG Points to ECL message (copy of R1) 
AB4 2 ; CXB$W_R_BCNT Size of ECL message (copy of R7) 
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Packe 


0 


BRw 


? - ct 16- 


SEP 
SEP- 
NOD 
NOD 


seg, CN 
CXBSW-R-DSTN 
CXBSB-R7FLG 


SR 
DS 
FL 
CXBSW_R_PATH 


n return here: 


R8,R7 arbage 
R6 


if ex 


XB w 
CXBSW_ SIZE and CXB$B_ TYP 
R5-RO Garbage 
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—— $$ —- ——— —__-.- — 


} 
P-1984 AX/VMS Macro v04-00 Page 49 NE! 
sats yi 83: 36; 3 NETACP.S RCIN NETDRVXPT.MAR; 1 _ (15) vOe 
Source node address 
Destination node (the ECL) address 
Low bit clear if CXB can be consumed 
Low bit set if CXB must be returned 
Second bit clear if no return-to-sender packet 


Second bit set if packet returned-to-sender 
I1.D. of receiving 


XB address with the 


as consumed. El C 
E lds unmodified. 


se, 
fie 


; Pass message to ECL Layer 
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Woae 60 Packet Errors - Process misce leneous pa moet $330 :88 ENETACP. SREINETDRVXPT MAR; 1 - (16) v0 


Send an indication to NETACP that there is a problem on this datalink. 
This is done by transforming the CXB into what looks Like NETACP's WQE 
pi ack (assuming that the fields don't overiae) and queueing it to the 
n 
NET 


ewrn—O 00 


—~“ 
Sete Se Se Ge Se Se Ge Ge 


- It is important that the block type rema 


s DYNSC_CXB since 
ACP dispatches on block type. 


sar : -SBTTL Packet Errors = Process miscellaneous packet errors 
AB? 3¢ 
AB? § : 
AB? 8 ; The packet (CXB) could not be routed thru. Update the appropriate 
ne? ; 3; statistics. Pass the packet to the ACP to report the event if necessary. 
OAs? 13 
AB? ¢ : INPUTS: R10 Scratch 
QAB7 3 R9 ADJ address or zero 
0QAB7 4; R8 Applicable LPD address 
AB? S$; R7 Message size 
AB? § 3 kK CXB address 
AB? 3 R Scratch 
QAB7 8:3 R2 RCB address 
QAB7 9; RO Scratch 
QAB7 40 ; 
QAB7 41 ; OUTPUTS: R6 0 if CXB was consumed 
one? rt: 3 Else unchanged 
AB7 43; R5 Garbage 
QAB7? 2344 ; RO Garbage 
OAB7? 2345 ; 
OAB7 2346 ; ALL other registers are preserved 
QAB7 2347 ; 
QOAB7 2348 ;- 
QAB7 $08 PFE BUMP B,RCB$B_CNT_PFE(R2) 3; Update packet format errors 
50 08 90 OAC 50 MOVB #NETMSGSC_PFE,RO ; Setup event code 
43 11 pate $2) BRB TO_ACP ; Give it to the ACP 
OAC7 32 OPL: BUMP B,.RCB$B_CNT_OPL(R2) 3 Update oversized packet loss 
50 OA 90 OAD 354 MOVB #NETMSGSC_OPL,RO 3; Setup event code 
33.—=Oés«11 pads $22 BRB TO_ACP 3; Pass the buffer to the ACP 
OAD7 335 AGED: BUMP B,RCB$B_CNT_APL(R2) ; Update aged packet loss 
50 05 90 OAE 58 MOVB #NETMSGSC_APL RO ; Setup event code 
23.—éid111 wt 2p BRB O_ACP ; Pass it to the ACP 
OQAE7 61 REACH: BUMP W,RCBSW_CNT_NUL(R2) 3; Update node unreachable loss 
50 06 90 OAF $6 MOVB #NETMSGSC_NOL,RO 3; Setup event code 
3 gars o7 BRB TO_ACP ; Pass it to the ACP 
OAF7 65 RANGE: BUMP B.RCBS$B_CNT_NOL(R2) ; Update node address out of range loss 
50 07 90 66 MOVB #NETMSGSC_NOL,RO : Setup event code 
03.—=s'i7 8 BRB TO_ACP ; Pass it to the ACP 
§ UNK: 3; Unknown message type 
50 01 90 MOVB #NETMSGSC_UNK,RO ; Set up event code 
7 
7 
7 


OOCOSOOOOSooOoOoooO 


>>> > Pr rrr Pry 


INPUTS: RO = NETMSGSC_xxx code 
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Wo. e000 Packet Errors - Process misce Laneous pa ~$b= 1 382 $3330: 38 NETACP.SRCJNETDRVXPT.MAR; 1 . (16) 
BOA 13 R7 = Message size 
BOA 3 R6 = CXB address 
B . Z H 
16 A6_ 57 0 80h 5 fO_ACP: MOVW R7 ,WOESL_PM2+2(R6) ; Setup size of msg 
55 3A AG g 3 86 MOVZWL CXB$W_R_ADJ(R6) RS : Get ADJ index for source node 
14 A6 66 56 A Bl 8 SUBWS = R6, (RB) ;WOESL_PM2(R6) ; Setup offset to msg 
10 A6 38650) «90 1 88 MOVB RY -Waes WEVT(R6) ; Setup event code 
20 Ab 2? BO OB1B 2389 MOVW R5,WQE$W-ADJ_INX(R6) ; 
55 6 DO OBIF 90 MOVL R6,R5 ; Get buffer address 
26 4 2 91 CLRL R6 ; Flag it as gone 
050 9 Bes 3¢ BSBW § TRSQUE_WQE_AQB ; Queue it to the AQB 
B27 9 RSB 


Store ADJ index in WQE 
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v04-000 TRLRTHRU = Process packet for route-thru 5-SEP-1984 02:20:38 CNETACP.SRCINETDRVXPT.MAR; 1 (17) 

~SBTTL TR RTHRU - Process packet for route-thru 

B + 

: TR_RTHRU - Process packet for route-thru 

0B INPUTS: R10 Scratch 

0B R9 ADJ address of receiving adjacency 

0B R8 LPD address of receiving datalink 

0B R7 message size (excluding header) 

0B Re CXB address 

0B R Contents of first byte in message 

8 RG Ptr to message past the header 

B R3 Scratch 

0B Re RCB address : 

0B R1 Ptr to messages's VISIT field in route-header 

RO Destination node address 


IMPLICIT INPUTS: 
CXB$W_R_SRCNOD = Node address of source of message 


OUTPUTS: R8,R7 Garbage 
R6 0 if CXB was consumed. 
Else CXB address 
R5-RO Garbage 


t 


R_RTHRU: ; Process packet for route-thru 
:  Route-thru packet 


BBC #RCBSV_AC 


BB EPRI IPUNDIPIPINIDINININIPINIMAIPININPINYPONPINPYNIPNPONoPoNnonofnonofropopyfponrnrrrnnw Ce 
ANN NNW DUM O99 9 SO \& 00900 09 09 09 69 09 09 09 Cd CD C9 C9 CD CD C9 CD CD C9 C9 C9 CO CD CD 09 C9 CD CD CO CD CD CD000D 


SSHLLHOSOHGSO OOOO ODO OO DOOD DOOD Seow 


01 «£1 T,- 3; If ACP is not active, then return 
2A OB A2 RCB$B_STATUS(R2) ,2$ 3 packet to sender 
SDISPATCH LPDSB_ETY(R8),TYPE=B,- ; Return packet if we are an Endnode 
<ADJSC_PTY_PH3N 2$>,- ; Phase III endnode 
<ADJSC_PTY_PH4N 2$>,- ; Phase IV endnode 
BUMP L,LPD$L_CNT_TPR(R8) ; Bump ‘transit packets rcvd' 
INCPMS ARRTRAPR : se. and the PMS database too 
58 bp PUSHL ; Save LPD that we received packet on 
006F 0 BSBW ROUTE 3; Re-route the packet 
58 oe? POPL R8 ; Restore receiving LPD address 
56 OD TSTL R6 ; Was pocket consumed? 
29.—S «13 BEQL 5$ ; If EQL then yes 


2s: : 
Return Packet to Sender 


If the packet was not sent we must return the packet to 
the sender, but only if the sender has requested it. 


PPPS SS SS SS SS SS SS SS SS SE SS SS SESS SSS SSS 


DDS BPEL EF EWAN NAIA IDDINPINIPONINPINININY 4 OO  MOOOOOOOCOCOCOCOOOOONO 
OOO NAME WN OOO NAME WIN OOD NAUE WIN O OONAU EWN = OOODNAU EWN" OOOnNOu 


PUPP 


Pftttt ttt 


svae the source and destination node addresses, repair the 
VISITs field, reset RO and R8, and route the packet to its source. 
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recess packet ping) Lever, * 63; 35; 25 . 
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DODO OOOOOOOOOWO OO WOO O09 09 09 09 09 09 09 09 SII NINN NSN SPA AA AAA AAO MUVIMIUIUIVIVIUT 


Bese 


PAMAOOAAOAOOCOW RN HIM 


03 38 A6 
D 


CONAUE WN SO OD NOU EWN O OD NAME WIN $$ O OONAUES WIN O OONAUE WN O OONOAUE 


POOOOOOOOONO 


SHOPS oOo OSoOO 


“SEP=1984 NETACP.SRCIJNETDRVXPT.MAR; 1 (17) 


3 The request return to sender is different for Phase IV Broadcast 
3 packet headers - so we will parse that separately. 
bs #TRGSY _RTFLG -LNG.R5.108 er if Phase IV Long format 
BBCC Ltt RTFLG_ROR,RS,5$ ; if return not requested 
BBSS atk $V"RTFLG_RTS,R5,5$ ; if} BS then already being returned 
MOVL (R6) RT ; Get message address 
MOVB R5,(R1)+ ; Reset control flags | 
OVW RO,R3 3; Save output node address 
MOVZWL CXB$W_R_SRCNOD(R6),RO : Get node address of orignal src node 
MOVW  R3,CXB$Q_R SRCNOD(R6) ; set new src node address 
ROTL #16, (RID T(R1) 4 ; Swap src qt node , edaresses 
DECB. = (R15 : Sestie Visits fiel 
ADOL3) = #1,R1,R4 ; R4 points Uy Bas. “2 data 
SBB ROUTE : 
RSB ; Done 


: Phase IV Long packet format - return to sender 


BBCC  #TR4SV_RTFLG_ROR,RS.20$ ; 


Route the packet to its sender 
Br if return not requested 
| 


BBSS #TR4SV_RTFLG_RTS, -R5,20$ : If BS, then already being returned 
MOVL (R6) RT ; Get message address 
MOVB R5, (R1) ; Reset control flags 
MOV RO,R3 ; Save output node address 
MOVZWL CXBS$W_R_SRCNOD(R6),RO ; Get node address of orignal src node 
MOVW R3,CXB$Q_R_SRCNOD(R6) ;: Set new src node address 
MOVW 7(R1) ,=(SPY 3; Save old destination node address 
MOVW 15(R15,7¢R1) 3; Set new destination node address 
MOVW (SP)+,15(R1) ; Set new source node address 
ADDL #18,R1 ; Point to VISITs field of message 
DECB (R15 ; Repair VISITs field 
ADDL3 #3,R1,R4 ; R4 points to start of data 
BSBB ROUTE ; Route the packet to its sender 
RSB ; Done 
CHECK_RQR 3 oe af return requested 
SSUME TR3SV_RTFLG_RQR EQ TR4SV_RTFLG_R 
ASSUME TR3$V_RTFLG_ RTS EQ TR4$V VIRTFLGIR 
BC STROSU_RTFLE_ROR RS .608 ; Br if L.A not requested 
BBS #TR3SV_RTFLG_RTS,R5,20$ ; If BS then already being returned 
ADDL 4,SP 3; Return to callers caller 
RSB 
BLBC CXB$B_R_FLG(R6) ,10$ ; If LBC, okay to forward packet 
BRW 100$ 3; Else, can't take packet = error 
3; Process the VISIT field to prevent infinite packet looping 
inca. = (R1) ump the VISIT field 
CMPB acess. MAX_VISIT(R2), (RI); ott in VISIT range ? 
BGTRU 20% If GTRU then no violation 
ASSUME Veaty RTFLG_RTS EQ TRASV’ RTFLG_RTS 
BBC #TR3SV_RTFLG_RTS,R5S,15$ 5 If BC then packet is not being 
| 
| 
| 
| 
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v04-000 TR_RTHRU = Process packet lor reute-thre met $3088 NETACP.SRCIJNETDRVXPT.MAR; 1 a (17) 
BD 09 3__returned to its original sender 
7E SE A2 02 83 e05 af MULB3 #2,RCBSB_MAX_VISIT(R2),-(SP) ; Else allow evies MAX_VISITS 
—E 61 91 Opp? 251 CMPB ss (R41), (SPT : 
03 19 QOBDA 21§ BLSS 408 3; If LSS then let it return to sender 
0094 31 +44 314 15$: BRW 10$ ; Else, report AGED Packet Loss 
BOF 15 20$: : 
BDF 218 3 
+4! 18 3 Determine the output adjacency for the packet 
BDF 251 : 
OA EF ee 2 0 ExTZv #TR4SV_ADDR_AREA,- ; Get the destination node '‘AREA’’ 
5A 506 BE1 1 #TR4SS-ADDR-AREA.RO,R10 ; 
QO EF OBES 25 § EXTZV #TR4$V_ADDR_DEST,- ; Get only the destination 
OA OBE 5 #TR4$S_ADDR_DEST,- 3; portion of the node address 
. pees 2 : RO,R3 § 
OBE9 2526 : We must find the output adjacency based on the type of node 
44 : s we are and what the destination node ‘‘area’’ is. 
434 i $DISPATCH RCBSB_ETY(R2),TYPE=B,- ; Dispatch on our node type 
OBE9 2531 <ADJSC_PTY_AREA 30$>,- ; Phase IV level 2 router 
were 236 " <ADJSC“PTY“PH4 40$>;- : Phase IV Level 1 router 
2c 011s OBF3 a BRB 50$ ; ALL others 
OBFS 2535 3 
ore 238 ; Phase IV Level 2 router. 
00 €1 OBF5 33, 30$: BBC #RCBSV_LVL2,- ; If we are not allowed to do Level 2 
19 0B A2 OBF? 2539 RCB$B_STATUS(R2),40$ : routing, then do Level 1 routing 
008C C2 SA 91 OBFA 2540 CMPB R10,RCBSB_MAX_AREA(R2) ; Area within range? 
78 «1A OBFF 2541 BGTRU 120 : Br if no 
5A 95 0C01 246 TSTB R10 :; Is this for our “‘logical"’ area 0? 
1¢ 13 0C03 254 BEQL 50$ :; Br if yes 
0088 C2 SA 91 OCOS 2544 CMPB R10,RCBSB_HOMEAREA(R2) ; Is this in our area? 
15 13 QCOA 2545 EQL 50$ ;_Br if yes - just Like Level 1 message 
53 20 B24A 3C OCOC 2546 MOVZWL @RCBS$L_PTR_AOA(R2)(R10],R3 ; Else, get ‘‘area’’ output adjacency 
19 «#11 Belt eh RB 60$ : Finish in common code 
i 349 : Phase IV Level 1 router 
0088 C2 «SA 91 0C13 2551 40S: CMPB  =—s- R10, RCBSB_HOMEAREA(R2) ; Is this in our area? 
07 «#13 Bele 226 BEQL ; Br if yes 
53 OOAC C2 3C OCIA 5 MOVZWL RCBSW_LVL2(R2),R3 ; Else, get our nearest level 2 router 
0B i 3h 228 BRB 60$ : Finish in common code 
¢ 336 : ALL destinations for our area 
SA A2 53 C21 2558 50S:  CMPW  R3,RCBSW_MAX_ADDR(R2) ; Within range? 
5 1A OC ; 559 BGTRU 126$ ; If GTRU then out of range 
53 1C B24 C 560 MOVZWL @RCBSL_PTR_OA(R2)(R3],R3; Get the output adjacency index 
: ; 20) : Don't clobber RO yet in case EQL 
C2c 268 : Common proccessing 
C2C 2564 3 
C2C 2565 5 Inputs: 
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16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 55 
Process packet for route-thru ~$eP 382 $3330: 388 ENETACE. SREINETDRVXPT MAR: 1 . (17) 
266 3 R3 = ADJ index 
te 60$: BEQL 130$ : If EQL then unreachable 
26 MOVL  @RCBS$L_PTR_ADJ(R2)CR3],R9 ; Get ADJ address 
0 BBC #ADJSV~RUN;- ; br if adjacency is not up 
71 ADJSB-STS(R9) , 130$ ; 
cg MOVZBL ADJ B_CPD_INX(R9),R3 =; Get LPD index for this adjacency 
57 BEQL 130$ ; Br if no output path 
574 MOVL R8,R10 > Save receiving LPD address 
323 MOVL  § @RCBSL_PTR_LPD(R2)CR3J,R8 ; Get LPD address 
a6 CMPB LPD$B_IRPCNT(R8) ,- ; boes "'square-root-Limiter’’ allow it? 
57 PD$B-XMT_SRL(RBS ; 
258 BGTR 1 :; If GTR then queue is full 
57 CMPW R7 ,ADJ$W_BUFSIZ(R9) ; Is the message too big for partner? 
289 BGTRU 146 : If GTRU then oversize 
581 PUSHL RO 3 Save destination node address 
38¢ 80$:  REMQUE @RCBSQ_IRP_FREE(R2),R3 : Get an IRP 
58 BVC : If VC then got one 
286 BSBW TRSADJUST_IRP ; Replenish the IRP queue 
585 BLBS RO,80$ ; If LBS then there's an IRP 
586 POPL ; Restore destination node address 
587 100$: BUMP W,LPDSW_CNT_TCL(R8) ; Update resource error packet loss 
588 INCPMS TRCNGLOS tse. and the PMS database too 
Gen 
591 110$: BSBW CHECK_RQR ; Check if return requested 
206 BRW AGED ; Packet VISITs field violation 
593 120$: BSBW CHECK_RQR ; Check if return requested 
594 BRW RANGE ; Destination address to large 
595 130$: BSBW CHECK_RQR ; Check if return requested 
596 BRW REACH 3; Destination address unreachable 
597 140$: MOVL R10,R ; Reset address of receiving LPD 
598 BSBW CHECK_RQR ; Check if return requested 
rh BRwW OPL 3; Packet too large to be forwarded 
601 150$: MOVZBL @(R6),R5 ; Get the flags azte again 
602 160$:  INSQUE (R3),RCBSQ_IRP_FREE(R2) ; Put back the IR 
60 MOVL R10,R8 ; Reset address of receive LPD 
604 BsBW CHECK_RQR : Return packet if requested 
+ 3 se, just drop 
ret 200$:  POPL RO ; Restore destination node address 
609 ; We will prevent any route-thru traffic to Phase I11 nodes, 
610 $ if the source node is outside of our area. This is to prevent 
611 ; some implementions of DECnet from re-cycling the Line on suspected 
oi¢ : acket format errors. There are no known implementations of Phase 
el? 3 I] DECnet that can handle the area field anyway. 
615 $DISPATCH ADJ$B_PTYPE(R9), TYPE=B,- 
617 pr at tt aa 10$>,- ; Phase II] endnode 
018 i <ADJSC_PTY_PH 10$>,- ; Phase III router 
620 BRB 220$ ; Else, okay aphers 
621 210$:  EXTZV #TR4$V_ADDR_AREA,- ; Get the source id ‘‘area’’ address 
622 #TR4$S~ADDR_AREA, - : 
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M5 o000 TR_RTHRU = Process packet lor route-thru = SEE 382 5:30:38 NETACP.SRCIJNETDRVXPT.MAR; 1 ° (1 
55 36A CAD 2623 CXB$W_R_SRCNOD(R6) ,R5 : 
0088 c2 55 91 OCBO 2624 CMPB =a _RCBSB_HOMEAREA(R2) =; Is this our ‘‘homearea’’? 
dD? «612 OCB 625 BNEQ 150$ ; Br if not, not reachable to endnode 
55 0086 9A cB? ( 6 MOVZBL @(R6),R5 : Pick up flags byte again 
9 55 2 €1 OCBB 26 8 220$: BBC #TR4SV_RTFLG_LNG,R5S,270$ ; Br if NOT Phase IV Long format header 
19 22 AB A €0 cer ? 4 BBS #LPDSVBC ,LPDSW_STS(RB) ,230$ ; Br if output is a broadcast circuit 
CC& «2631 ; We are converting the long format to short format, clear INI and 
bt? ° § ; long format flags, and check HIORD. 
_ 55 26 BA OCC& 2634 BICB = #@TR4SM_RTFLG_INI!- ; Make sure the Intra-NI and 
CC? 2635 TR4SM_RTFLG_LNG,RS ; _long format flags are clear 
F9 Al QOO4OOAA BF D1 Bebe 6 § CMPL #TR4SC_HIORD,=-7(R1) ; Does source HIORD match? 
C1 12 OCCF 26 BNEQ ; Br if not, packet format error 
F1 Al QO0400AA 8F D1 OCD1 2638 CMPL #TR4$C_HIORD,-15(R1) : Does destination HIORD match? 
B7 12 OCD9 2639 BNEQ 160$ ; Br if not, packet format error 
0B 11 OCDB 2640 BRB 240$ 3; Continue 
OCDD 2641 
OCDD a) 2308: ; 
OCDD 264 ; Check to make sure the OUTPUT LPD = the INPUT LPD, if not 
OCDD 2644 3; =6the same, then clear the Intra-Ethernet bit. The Intra-Nl 
OCDD 2645 ; flag has already been set by the originating node if it 
axes 048 ; sent the packet over an Ethernet circuit, so all we have 
CDD 264 ; to do in the route-thru case is make sure we clear the flag 
Beep 228 ; when it leaves the Ethernet. 
32 A6 3 6©B1 «0OOCDD «602650 CMPW CXB$W_R_PATH(R6) ,- ; Is the output LPD = input LPD? 
20 As OCEO 2651 LPD$W_PTH(R8) 
04 13 OCE2 O36 BEQL 24 ; Br if yes, okay ‘ 
OCE4 265 CLRBIT #TR4SV_RTFLG_INI,RS ; Else, clear the Intra-Ethernet bit 
OCEB8 2654 2408 ; 
OCE8 2655 ; Build a standard Phase III type route header from the 
OceB 028 ; Phase IV long format header. 
7% =68©61—=—90 ber 658 MOVB (R1),-(R4) ; Backbuild the header - visits field 
74 36 A6 B60 pees 659 MOVW CXBSW_R_SRCNOD(R6),-(R4); Store source node address 
74 50 B80 OQCEF 2660 MOVW a7 (ROY : Store destination node address 
7% 865§5—o90 cre 661 MOVB R5,-(R4) ; _ Store route msg flag byte 
66 54 00 ef 4 MOVL R4,(R6) ; Reset start of message ptr 
a O88 ; Done building header, adjust message size and ship it. 
51 66 08 Oct 666 270$: MOVL (R6) ,R1 ; Point to start of message 
ry CFB 266 ADDW #6,R 3; Account for header 
1C A 96 cre és INCB LPD$B_IRPCNT(R8) ; Account for IRP to be queued 
D01 2670 ; 
! er) ; Build the IRP, attach the buffer, queue to communications driver 
Bp 1 $38 : 
D01 2674 ASSUME IRPSL_AST EQ 4+IRP$L_PID 
; ; of? ASSUME IRPSL-ASTPRM EQ 4+IRPSL_AST 
50 OC Ad 9E QD01 $35 MOVAB sore PID(R3),RO ; Point to PID field 
80 a 3 DOS 078 MOVAB W*TRSRTRN_XMT_RTH,(RO)+ ; setup return address 
80 20 AB DOA 267 MOVZWL LPD$W_PTHTRB) > (ROS+ : LPD i.d. into AST field 


H 6 
VO.-O00 TRYRINRU © Process packer forsrouteethru S<sEP-1984 B2:30:38 ENE TACE. SREInEYDRuRoT.maR:1 29° (355 
80 52 00 bof MOVL R2,(RO)+ ; RCB address into ASTPRM 
D11 a ASSUME IRPSL_WIND EQ 4+IRPSL_ASTPRM 
D111 ; Fall thru 
D11 684 
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v04-000 FINISH_XMT_HDR = Ponish building HOR and misty 7 3:30:88 ENETAC. SREINEYDRVXPT MAR: 1 . 
pty 8 § ~SBTTL FINISH_XMT_HDR = Finish building HDR and transmit it 
D11 2688 ;+ 
ot ? : 3 FINISH_XMT_HDR = Finish building HDR and transmit it 
et $3) ; This routine will build a new Route Header based upon the output path. 
D11 $38 : The CXB is setup as follows: 
D11 2694 ; 
D11 2695 ; 
D11 036 3 few mne enn wer nose + 
D111 2697 ; { $tandard ' 11 bytes ag CXBSL_FLINK and CXB$L_BLINK may 
D11 2698 ; : ' be used by the Transport layer. CXxB$Q SIZE 
0 44 : | buffer header i must be correct. CXBSB_TYPE must be DYNSC_CXB. 
0D11 2701 ; H H Starts with CXB$B_CODE (byte 11) and continues 
0D11 oe : H ECL H to CXBSC_LENGTH. This area is read-only to 
0D11 2703 ; { pure area |} Transport and below. It cannot even be 
0D11 2704 ; ' H saved/restored. 
0011 2705 :  §._——i‘ wwe er eeeeennne + 
0D11 2706 ; H Datalink | Starts at CXBSC_LENGTH and is at least 
0D11 2707 ; { Layer H CXBSC_DLL bytes long. Used by the datalink for 
0D11 2708 ; : impure area |: protocol header or state information. 
0011 2709 ; «tee ewww wwnnnn + 
0D11 2710 ; H { 
0D11 2711 ; * body of . Must be quadword aligned and starting no sooner 
0D11 at ; . message . than CXBSC_LENGTH + CXB$C_DLL (= CXBSC_HEADER) 
0D11 27135 ; " " The first 6 bytes contain: RTFLG,DSTNOD,SRCNOD 
QOD11 2714 ; ‘ . FORWARD, in that order. 
0D11 2715 ; H : 
0D11 716 2 + 
0D11 2717; : Datalink | Used by the datalink layer for protocol (e.g., 
0D11 718 ; ' Layer ' checksum) or state information. Must be at 
0D11 2719 ; : impure area } least CXBSC_TRAILER in Length. 
0D11 720 en + 
0011 2721 ; 
0D11 27 § : 
0D11 2723 ; INPUTS: R10 Scratch 
0D11 2724 ; RG ADJ address 
0011 2725 ; Zero if called by TALKER 
pet 726 ; LPD address 
D11 2727 ; R?7 Total number of bytes in message 
0011 2728 ; 6 Pointer to buffer containing message (CXB) 
D11 2729 ; R5,R4 Scratch 
D171 2730 ; R3 IRP address 
D11 2731; Re RCB address 
0D11 27 ¢ 3 R1 Pointer to start of message 
+h 4 23 RO Address of IRPSL_WIND(R3) 
D171 2735 ; OUTPUTS: R8 Preserved 
D11 27 § : R? arbage 
D11 2737 ; s 
D11 27 8 3 R5-RO Garbage 
D11 2739 ; 
D11 my io 
D1] 2741 FINISH_XMT_HDR: ; Finish building HDR and xmt it. 
59 DS OD11 2742 TSTL Rg ; Did we have an ADJ? 
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BEQL 5$ :; If EQL then no = no header 


We will make a special check here, to see if we are an 
Endnode. This is because on a BC circuit the ‘main’ ADJ has a 
dhe of ‘‘unknown’’ which prevents the building of a route 
eader. 


C #LPDSV_BC,LPDS$W_STS(R8),3$ ; Br if NOT a broadcast-circuit 
ISPATCH RCBSB_ETY(R2),TYPE=B,- 


<ADJSC_PTY_PH4N, 10$>,- ; Phase IV endnode 


B 
D 


sv A@o 


Build the appropriate header type - based on output adjacency 
3; node type. 


SDISPATCH ADJ$B_PTYPE(R9) , TYPE=B,- 


<ADJSC_PTY_AREA 10$>,- ; Phase IV 
<ADJSC“PTY-PH4 10$>,- ; Phase IV 
<ADJSC_PTY_PH4N 10$>,- ; Phase IV endnode 
0$ 3; Phase III router 
: ; Phase III 


: ALL others including Phase I] 


SUBL § #TR3SC_HSZ_DATA,R7 : Adjust msg size 
ADDL #TR3$C_HSZ_DATA,R1 :; Skip over Transport header 
BRW 40$ 3; Join common code 


: Phase IV Router/Endnode 

: Build a new header if the output LPD is a broadcast-circuit 
BC #LPD$V_BC,LPDSW_STS(R8),30$ ; Br if NOT a broadcast circuit 
: Build a Phase IV broadcast circuit header 

ASSUME TR4SV_RTFLG_RTS EQ TR3SV_RTFLG_RTS 

ASSUME TR4SV_RTFLG_RQR EQ TRS3SV_RTFLG_ROR 

MOVB (R1),R10 ; Get the flags byte 

: If the output LPD is a Broadcast Circuit Endnode, then 

; set the Intra-NI flag in the RTFLG byte of the message. 


It will be cleared by routers if they route this packet 
off the Ethernet. 


TSTB. = 5(R1) ; Is this packet originating from here? 
BNEQ 128 $ so 
ETBIT #TROSV RTELG_INI.RIQ ; Set the Intra-NI flag 
SETBIT #TR4SV_RTFLG_LNG,R1 ; Set the long format flag 
MOVB 5(R1) ,=(SP) ; Get visits byte 
MOVB (R1) ,R2 ; Get route header flags byte 
MOVW S¢RiS.R ; Get source node address 
MOVW (R1) ,-(SP) ; Get destination address 
#<TR4$C_HSZ_DATA-TR3$C_HSZ_DATA>,R1,R5 ; Point to header area 


NETORVXPT 
v04-000 
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OA 00 

03 Al 06 
OA 00 

01 Al 06 
04 Ad 


44 AS 
QO0400AA 8F 
40 A3 


55 - 
03 22 “o 
51 
03 22 As 
51 0 
5551 
A 
57 5 
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(Rout ing) Lave 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 60 NE’ 
nish bu iding byer and 5-SEP-1 1984 94:30 333 YRETACP. CRE INE TDRVXPT. MAR; 1 . (18) vO 
MOVL aey tart f data 
ADDL acthase HSZ_DATA-TR3SC iz” DATADIR Adjust msg size 
MOVB wigeee J+ 3 e trons spor rts pesesge type 
CLRW = (R5S+ ; RESERVED D-AREA, D-SUBAREA 
MOVL #TR4SC_HIORD, (R5)+ : Store destination HIORD 
MOVW (SP)+,R1 ; Get destination node address 
MOVW R10 (R5)+ : Store destination address 
CLRW (R55 + : RESERVED §-AREA D-SUBAREA 
MOVL #TRASC HIORD, (R5)+ + Store source HIORD 
MOVW RG, (R5S+ ; Store source node a 
CLRL ss (RB) + ; Clear NL2 bc vistt—cT, SERVICE CLASS 
3 oan 
MOVB (SP)+,=-3(R5) ; Store VISITs count 
MOVW R10, 1RP $Q_ STATION+4(R3) ; Store destination node address in IRP 
BBC #ADJS$V_RUN,- ; Br 1T,adlagency, is not up (ie this is 
ADJ$B- _STS(R9) ,35$ : the ‘'m 
BRB 30$ ; Join common code 


Phase III header 


For Phase III node, we must reset the ‘‘homearea’’ field of 
the destination id, and also for the source id. 


Phase III endnodes 
Phase III routers 


seeee The following is a requirement of the architecture ***** 


There are no known DECnet implementations which can handle 
node addresses from other areas. Therefore, for Phase III 
nodes we will always reset the area field of the source 
node address. There are checks in the route-thru code to 
prevent route through nodes from sending to Phase III nodes 
s from other areas. 


INSV  #0,#TR4$V_ADDR_AREA,- 
#TR4SS ADDR AREA, 3(R1) 

INSV 40 #TRZSV_ABDR_AREA 

gies ADDR AREA. sTCR1) 


W_PNA(R 
IRP$Q-STATION#4(R3) 
MOVL #TR4SC_HIORD,- 

IRPS$Q _STATION(R3) 


: Pad the message if required 


Reset ‘‘area’’ of source id 
Reset ‘‘area’’ of destination id 
Set destination address 

in IRP 


MOVL R1,R5 3 ag start of message pointer 

BBC #LPDSV_ALIGNW,- 3 f no word alignment needed 
LPDSW_STS(R8) ,47$ : 

BICL #1,R1 3 at backup message to word boundary 

BBC #LPDS$V_ALIGNQ,- : Br if no quadword alignment needed 
LPDSW_STS(R8) ,49$ : 

BICL #7,R1 3 Shee. Sackup message to quadword 

:; _boundary 

SUBL R1,R5 ; Calculate size of rounding 

BEaL §«©=-_:-50$ : Branch if no pad required 

ADDL R5,R7 ; Increase size of transfer 


WE TOR XPT 


61 


FINISHAMT HDR Pints 


BB BE sos, 


(Routing) Liye 


h building Ho R "and 


SETBIT #7,R5 


MOVB 


RS, (R1) 


"SSEp=198e 85:36 


33 AX/VMS 
NETACP. 
B+ high bit 


i, neupeee pad count 
; Store pad 
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TORVXPT - NETDRIV R Trans (Rout ing) Lave 16-SEP=1 AX/VMS Macro V04-00 Page | 
teats FINISH_XMT_HDR - Ponish building Hb ‘ "ond g-sé -SEP-19 38 8} +36: 33 NETACP.S REIN NETDRVXPT.MAR; 1 iad 
DD 1 : 
+ 3; Finish building the IRP and transmit it 
DD 64 ; INPUTS: R10 Scratch | 
DD 5 : Ro ADJ address or zero 
DD § : R LPD address | 
DD ; R Total number of bytes in message 
4 68 ; R corner to buffer containing message (CXB) 
DD 4 ; R5,R4 Scratch 
ODD 0 ; TRE. a 
ODD 71 3 R2 Scratch 
44 a ; R1 Pointer to start of dat te 
DD 7 : RO Address of ik P$L_WIND(R3) 
ODD 874 3 
ODD 5? 3 
44 ug ; Journal the message to be transmitted 
pp ere 
ODD 79 «if DF ,UNX$$$ 
pos 880 
50 DD 44 881 PUSHL RO ; Save registers 
52 14 A3. DO ODDS Ht OVL IRPSL_ASTPRM(R3) ,R2 ; Get RCB address 
50 04 ODD9 288 CLRL ; Set journal type = Start transmit 
0380 30 ODDB 2884 BSBW TR_FILL_JNX ; Store journal record 
50 8EDO ODDE 2885 POPL RO ; Restore registers 
ODE1 536 
ODE1 288 ENDC 
ODE1 2888 
ODE1 2889 $ 
ODE1 Bey ; For X.25 circuits we will have to calculate a CRC16 on the data 
49 +4 ; portion of the message. 
14 22 AB O07 =«©E1 SCODE1 398 BBC ahs & i. Posu. STS(R8), —, Ronin if not X.25 datalink 
0B 6B +4 Bae PUSHR #*M<R ; (ste 
61 57 00 F214 CF OB ODE 95 CRC CRC16, (FG. «fs <R1) : calcula e CRC16 on data 
52 50 00 OQODEF 2896 MOVL : Sav 
08 BA pore 897 POPR #*M<RO R1,R3> F oe de. regs 
71 52 BO ODF4 2898 MOV R34 (RI) : Save CRC in datagram 
57 02 Ad ood 344 ADDW #2,R7 : Account 
66 51 00 =e 44 100$: MOVL R1, (R6) 3; Save address of start of data 
ODFD 29 3 ASSUME IRPSL_WIND EQ 4+IRPSL_ASTPRM 
nore 904 ASSUME IRPSL_UCB €Q 4+IRPS$L_WIND 
444 +44 ASSUME LPDSL~ UCB EQ 4+LPDSL_WIND 
80 OC AB 7D pre s't4 MOVaQ LPDSL_WIND(R8) ,(RO)+ 3; Fill WIND,UCB fields 
E01 2909 ASSUME inPsu.. FUNC EQ 4+IRPS$L_UCB 
E01 2910 ASSUME IRPSB"EFN EQ 2+IRPS$W_FUNC 
E01 911 ASSUME IRP$B- PRI EQ 1+IRP$B_EFN 
3 ! aig ASSUME IRPS$L-IOSB EQ 1+IRPS$B_PRI 
80 00° DO QE01 2914 
FF AO 1F 8 £04 2915 MOVB #31 aate RO) : Use lowest prior 
80 56 D E 8 916 MOVL  R6, (RO : Buffer address late 10SB 


MOVL $*#10$ MOI TELBLK. (RO)+ BAY FUNC, clear and PRI 
| 


TORVXPT = NETORIVER (Routing) i 16-SEP-1984 237: hs Hy cro V04-00 Page 63 
W400 FINISH.XMT_HDR = Finish building byet and  SrSEb=13B2 83:35:88 HARI NCS tees Nee tl wars 28° ($3, 
E08 § ASSUME IRPS$W_ cen EQ 4+IRP$L_10S8 
E08 ASSUME {RP SW. STS EQ #1 RP SW _ CHAN 
E0B 0 ASSUME IRPSL-SVAPTE EQ 2+IRP$W-STS 
; : 1 ASSUME IRPS$W- BOF F EQ +IRPSL~ _SVAPTE 
80 4A AE E0B 5 MNEGW LPDS$W_CHAN(R8),(RO)+ 3; Enter CHAN 
0 E1 EOF 4 BC #LPDSV_XBF,- 3 If BC the xmitter 1/0 is direct 
OA 22 AB et} LPDSW-STS (RB) ,120$ ; 
E14 : 
‘ 8 3; Xmitter 1/0 is buffered 
E14 0 : 
80 01 BO O0E14 1 MOVW #IRPSM_BUFIO, (RO)+ ; Enter STS field 
80 56 00 3H ¢ MOVL R6, (ROJ+ 3; Setup buf fer ptr in SVAPTE 
80 B4 OEIA CLRW = (RO) + : Clear BOFF 
1B O11 pete 4 BRB 140$ 3 Continue 
E1E § 120$: ; 
Bele $ : 
E1E $ Xmitter 1/0 is direct 
OE1E 8 3 
QE1E 9 ° 
B4 0E1 0 CLRW (RO)+ ; Clear STS 
54 66 DO OE 1 MOVL (R6),R : Get msg addres 
56 O00000000°GF D0 OE ¢ MOVL G*MMGSGL SPTBASE ,R6 : Get eysten pose table base 
09 EF OE2A EXTZV S*#VASV_UPN,- ; Get Virtual page frame number 
1 Se OE2C 4 S“*#VASS_VPN,R4,R1 ; 
80 6641 DE OE2F 5 MOVAL (R6)CR1J7,(RO)+ ; Enter SVAPTE 
80 54  FEOO 8F AB BE 3 $8 1408 BICW #*C<VASM_BYTE>,R4,(RO)+ ; Enter page offset of msg in BOFF 
039 8 
0E39 9 ; Complete the IRP and queue it to the device 
0E39 0 
pee 1 
0E39 ; ees IRP$W_BCNT EQ 2+IRP$W_BOFF 
bese Z ASSUME IRPSL~ _BCNT EQ O+IRPSW~ _BCNT 
Ss aT = 3 9 5 MOVZWL R7,(RO) 3; Enter BCNT 
56 D4 OESC 6 CLRL § ravens buffer deallocation 
55 1C A3 0 OE 5 7 MOVL IRP$L_UCB(R3) ,R5 : omm driver UC 
13 OE4 8 BEQL $ ff ‘are then this is Local LPD 
00000000'GF 17 OE44 9 JMP G*EXESAL TQUEPKT 3 Queue the packet to ‘‘real"’ datalink 
0254 31 Pr ? 150$: BRW TRSLOC_DLL_XMT 3; Queue the packet to “‘local"’ datalink 
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Transport (Routing) Layer 16-SEP-1984 01:37:53 VAX/VMS Macro V04-00 Pa 4 N 
- Update the BC Lacks tabie ae t 93:35:83 ENETACP. SREINE YDRVXPT MARS 1 - (36) 6 


~SBTTL UPDATE_CACHE - Update the BC cache table 


+ 
UPDATE_CACHE = Update the BC cache table 


3; INPUTS: R10 Scratch 

3 R9 ADJ address ‘ 

3 R8 LPD address associated with receiving datalink 
5 R7 Size of ECL message 

; Re Received CXB address 

3 R Contents of first byte in message 

; R4,R3 Scratch 

; R2 RCB address : 

; R1 Ptr to source node address in message 
; RO Destination node address 

: CXBSW_R_SRCNOD ‘‘Last Hop’’ node address 


OUTPUTS: 
R3,R4,R10 _ Garbage 
ALC other registers are preserved. 


UPDATE_CACHE: ; Update the LPD's cache table 


First we will check the source node address 

1 gate: the PNA for the DRT. If they match, then 

it must be the ‘Designated Router’’ (DRT) who sent the 
message, since the ‘Main Adjecency” would have a node 
address of -1. We will then set the ADJ to point to the 
DRT, else we will scan the CACHE table for the received 
LPD, treating this Like a Non-BC circuit and use the ADJ 
index of the LPD. 


CACHE TABLE HANDLING: 


If the DRT is not a real BRA, then we will scan the LPD 

CACHE table to try and find the entry. If the enery was not 
found then it will be inserted at the first available slot, 

as long as the Intra-NI bit is set or the source of the packet 
was the same as the Last hop. 


ZWLE (R1),R3 
CMPW = R3_, ADJ $W_PNA(R9) 
BEaL «4106 


MOVL = LPDSL_CACHE(R8),R10 
100$ 


Sete Se Ge Ge Ge Ge Ge Se Ge Se Ge Fe Ge Ge Ge Se Ge 


= 
o 
< 


; Get the source node address 

; Do the node addresses match? 

; Br if, YES - must have come from 

: “Resignetes Router’, skip it 
; Else, get the CACHE table for LPD 
BEQL ; Br if none available - leave now | 
MOVZWL -6(R10),R4 ; Get number of entries in CACHE 


; Scan CACHE 


émpw (R10) +, R3 
BEQL «60S 


wu--95 —OW 
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Br if yes 
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= Update the BC cache table 
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=SEP 4 0:38 CNETACP.SRCINETDRVXPT.MAR; 1 
(R10)+ 3; Skip timer cell 
R4,10$ ; Loop if more 


CACHE scan failed, find empty cell and enter new Node 
address into the CACHE. If an empty cell is not found, 
then throw the oldest entry away! 


Make sure the Intra-NI bit is set before entering in CACHE. 


#TR4SV_RTFLG int R5,100$ ; Br if Intra-NI packet, insert entry 
LPDSL_CACHE (RB) ,R10 ;'Get the CACHE table for LPD, again 
=6(R : Get size of CACHE table 
Make a copy of the oldest entry 
--assume first is oldest 
Empty entry? 
Br if yes 
Is this the new oldest? 
Br if not 
Else, set new oldest 
Skip to next 
Loop if more 
Else, purge the oldest entry 


Enter new Node Address into CACHE table. 
(R1 Enter new node address 


»,(R10)+ : 
G*EXESGL_ABSTIM,(R10)+ ; Enter current time 
; Return to caller 


’ 


CLRW LPDSW_TIM_TLK(R8) e 
B Gh. rOoR_RERD .LPDSU_STS(RE ; Send the ‘Broadcast Endnode’’ hello 
108: B 30$ ; Bon't reset timer 
259$:  BRW 25$ ; Reset the ‘‘hello’’ timer 
TRSRTRN_XMT_RTH:: ; Route-thru 1/0 completion 

DSBINT #NETSC_IPL ; Raise to driver IP 

PUSHR #*M<R6,R7,R8,R9,R10> ; Save regs 


22 AB 0800 . 
7 
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NE TDRVXPT - NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 
V5.4 000 TRSRTRN_XMT_RTH ~Pendeact ion Pout ine for oS EE = 3b $3:30:38 NETACP.SRCIJNETDRVXPT.MAR; 1 
E9A 3050 ~-SBTTL TRSRTRN_XMT_RTH = End-action routine for route-thru IRP's 
E9A 305 «SBTTL TRSRTRN_XMT_ECL = End-action routine for ‘ECL’ IRP's 
3h B2 -SBTTL TRSRTRN_XMT_TLK = End=action routine for ‘TALKER’ IRP's 
E9A 3054 ;+ 
E9A 3055 ; TRSRTRN_XMT_RTH = Transmit 1/0 end-action routine for route-thru IRP's 
E9A B38 3 TRSRTRN-XMT-ECL = Transmit I/0 end-action routine for ‘'ECL’’ IRP's 
oA TH 3 TRSRTRN_XMT_TLK = Transmit I/0 end-action routine for ‘'TALKER'’ IRP's 
OE9A 3059 ; 
QOE9A 3060 ; End-action after Xmt IRP is returned due to 1/0 completion. In general, 
Bega 61 ; each routine returns the ‘input packet Limiter’’ resource, and the hello 
ESA $6 ; timer is reset if the transmit was successful. 
QE9A 3065 ; 
QE9A 3064 ; 
Bea 065 ; INPUTS: R5 IRP ptr 
ESA Bes ; R4-RO Scratch 
OE9A 3067 ; 
OE9A 3068 ; IPL 4 
OE9A 3069 ; 
OE9A 3070 ; OUTPUTS: R5-RO Garbage 
QOE9A 3071 ; 
OE9A Bre ; IPL 4 
OE9A 3073 ; 
OE9A 3074 ;- 
OE9A 3075 -ENABL LSB ; 
OE9A 3076 TRSRTRN_XMT_TLK:: ; HELLO mesqage 1/0 completion 
QE9A 3077 DSBINT #NETSC_IPL ; Raise to driver IPL 
07CO 8F BB zeer 43 PUSHR #*M<R6,R7,R8,R9,R10> 3; Save regs 
52 14 A5 DO OEA4 3080 MOVL IRP$L_ASTPRM(R5S) ,R2 ; Get RCB address 
58 10 AS 9A OQEAB 3081 MOVZBL IRP$L_AST(R5),R ; Get LPD index 
58 28 8248 DO OEAC nt MOVL aRCBSC_PTR LP6(R2)CR8],R8 ; Get LPD address 
1F AS 896 pee! 4 INCB LPD$B_XMT_TPL(R8) ; Return ‘‘input-packet-Limiter’’ slot 
QEB4 3085 ; For Broadcast Circuits, we will check to see if we are the 
QEB4 3086 ; ‘Designated Router’ and if so, setup to send the ‘Broadcast 
0EB4 3087 ; Endnode Hello’’ message (in addition to the ‘Router Hello’ we 
pees tt ; just sent). 
23.38 AS «ED «(EBS ©3090 BLBC —sIRPSL_IOST1(R5),10$ : If error, exit, but don’t reset timer 
20 22 AB OA £1 OE 091 BBC #LPD$V_BC,LPD$W_STS(R8) ,259$ ; Br a 
18 22 AB OB €E4 OE O36 BBSC #LPDSV~XEND ,LPDSW_STS(R8) ,259$ ; Br if we have already sent 
E 88 ; the “Broadcast Endnode Hello’ msg 
2c A 3C_ «(OE 94 MOVZWL LPD$W_DRT(R8),R1 ; Get designated router ADJ index 
51 2C B241 00 OE 095 MOVL @RCBSC_PTR_ADJ(R2)CR1],R1 ; Get ADJ address 
04 Al B61 OE 096 CMPW = ADJ $W_PNA(R1) ,- ; Are we the Designated Router? 
OE A2 E 09 RCBSW_ADDR(R2) ; 
OB 12 098 BNEQ 2598 : Br if not - reset timer : 
A 1 444 > Else, force hello msg next tim 
11 1 
31 1 
1 
1 
1 
1 
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NETDRVXPT = NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 67 
VOu-000 TRSRTRN_XMT_TLK = End=action Pout ine for orSFb = 384 3:30:38 ENETACP. SRCINETDRVXPT.MAR: 1 “ (31) 
EEA 3107 : 
2g 14 AS po EEA 108 L IRP$L_ASTPRM(RS) ,R2 ; Get RCB address 
5 10 AS A OEE 1 MOVZBL seeat AST(R5) RB > Get LPD index 
58 38 B248 00 OEFe 3110 VL aRCBSC_PTR Pb (Rg) CR8I.RB Get LPD address 
59 38 AS «ED «(OEF? «3111 BLBC _—XIRPSL_TOSTT(RS) , 30$ ; If LBC then I/0 error 
EFB 6 BUMP | LPOSL CNT _TPS{RG) ; Update ‘transit packets sent’ 
44 11 ore VW BRB 6 ; Continue in common 
OFO6 3115 TRSRTRN_XMT_ECL:: 3; ECL xmt_1/0 completion 
OFO6 3116 DSBINT #NETSC_IPL ; Raise IPL 
O7CO 8F OF a 4 PUS #*M<R6,R7,R8,R9I,R10> ; Save regs 
52 14 A5 00 oF 118 MOVL IRP$L_ASTPRM(RS) ,R2 ; Get RCB pointer 
58 10 AS 9A OF14 120 MOV7BL IRPSL_AST(RS),R ; Get LPD index 
58 288248 00 OF 18 121 MOVL  @RCBSC_PTR_LPO(R2)CR8],RB ; Get LPD address 
Orb 1 g IF DF ,JNX$$$ 
grid 124 
7 Q8 DO OFID 3125 MOVL #8,R7 ; Set length of I0SB 
51 38 AS 9E OF20 3126 MOVAB IRPS$L_IOST1(R5),R1 ; Journal the I0SB quadword 
0 OoO1 90 OF 4 3127 MOVB P ; Set journal type = Transmit complete 
0264 30 oF I ! 3 BSBW TR_FILL_JNX ; Store journal record 
OF2A 3130 -ENDC 
OF2A 3131 
1F A 96 OF2A 13 INCB LPDSB_XMT_IPL(R8) ; Return ‘‘input-packet-Limiter’’ slot 
50 24 A5 00 oF? 13 MOVL IRP$L_IOSB(R5) ,RO ; Get buffer 
24 A D4 OF31 3134 CLRL IRP$L_IOSB(R5) ; Detach it from the IRP 
a $132 $ 
OF34 3136 2 » 
OF 34 siz : Deliver end-action status to the ECL issuing the transmit. It 
OF34 3138 : is the responsibility of the ECL routine to consume the RO 
OF 34 $123 ; buffer -- deallocate it, requeve it, etc. Attaching RO to 
OF34 3140 ;  IRPS$L_IOSB will cause it to be deallocate on return (see the code 
OF 34 He : im TRORTRN_IRP). 
OF 34 136 3 
OF 34 fe ; 
OF34 3144 3; Call with: R5 IRP address 
ie 145 : R4,R3 Scratch 
OF34 3146 : R2 RCB address 
OF34 3147 3 R1 Scratch 
OF34 3148 , RO CXB address 
OF34 3149 : 
OF r 139 ; CXBSL_ENDACTION(RO) has been repaired 
OF 4 13 3; On return from ECL: 
F34 315 ; 
A ? 13 3 R4,R3,R1,R0 may be garbage. 
; r 138 3 ALL other registers must be unchanged. 
F34 3158 : 
78 B5 16 OF34 3159 JSB @IRPS$L_SAVD_RTN(RS) :; Deliver status to ECL layer 
19 38 AS) =6€9 «(0F37) «=—-3160 BLBC IRP$L_TOST1TRS) , 308 : If LBC then 1/0 was not successful 
F3a 3161 BUMP —L, LPDSL_CNT_DPS(RB8) : Bump ‘depart ng pkts sent’ 
F44 16¢ INCPMS DEPLOCPR 3 se. and the PMS database too 
OA €0 OF4A 3165 208: BBS #LPD$V_BC,- ; If this is a broadcast circuit, 
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NE TDRYXPT - NETDRIVER Transport (Routing) Lf Ri SEP-1984 AX/VMS Mac Page 68 
YOu 000 TRERTRNLXMT TLRs Endmacrion Pourtae tor Sasepoloee 63:30:88 ENETRED. SaeSmeYoRvgor.mars1 29° ($8) 
05 22 As F4C 31 ¢ LPDS$W_STS(R8) ,30$ ; then never reset talker (so that 
FOF 31 ; Router Hellos are sent regularly) 
18 as BO OF4F 31 § 25$: MOVW LPDSW_INT_TLK(R8),- 3; Reset talker interval 
16 A F52 16 LPO su, TIM” TLK(RB) s 
08 10 eee 198 30$: BSBB TR. RTRN_IRP ; Return IRP to the Xmit pool 
07CO 8F BA Oree 15 POPR #°M<R6,R7,R8B,R9,R10> ; Restore re 
of 5 171 ENBINT ; Restore IP 
05 OFSD 7 RSB ; Return to Exec 
OFSE 317 
OFSE 3174 -DSABL LSB 
OF ae 175 
FSE 3176 


<Zz 


-_ 


G6 7 
Transport (Routing) Layer 16-SEP-1984 01:37:53 VAX/VMS Macro V04-00 P 9 
Reece IRF HOLE InP oot SaSEpm ome BeiSOLSe EACTACE.SaeomEvoRVeoT.mans1 2% ($3) 


~SBTTL TRURTRN_IRP - Recycle IRP Xmit IRP pool 


NE TDRVXPT 
v04-000 


zm 
uw 


+ 
TRLRTRN_IRP = Recycle (Rev or Xmt) IRP to transmit IRP pool 


If the low bit is clear in IRP$L_IOST1 and the LPD is still marked ‘‘active’’ 
then an "'LPD-down'’ event is generated. 

Otherwise, the used resources are returned. If a fork process is awaitin 
any of these resources, its wait state is advanced and may be reactivated. 


INPUTS: ointer 


p 

pointer 
pointer 
R 
5 


5) low bit set if 1/0 was succesful 
) points to CXB to be deallocated, zero if none 


OUTPUTS: R8-R6 Garbage 
Zero 
R4-RO Garbage 


heheh hh heh edb dh dh dh oh edb hh ech edb ech dh db ch | 


t 


R_RTRN_IRP: ; Return IRP to Xmit pool 
MOVL 


53 55 00 R5,R3 3; Copy the IRP address 


Deallocate the attached CXB, if any 


50 24 AS OVL IRP$L_IOSB(R5) ,RO 
09 10$ 


IRP$L_IOSB(R5) 
G*COMSDRVDEALMEM 


Get the CXB 

If EQL then none 
Nullify CXB pointer 
Deallocate the CXB 


-o-0 
ALrWO 


or 
@OWDo 
a 


24 AS 
00000000 ' GF 
10$: 


If LBS in IOST1 then 1/0 was successful, branch to recycle the IRP. 
Otherwise, the 1/0 failed -- assume the datalink is down, clear 
the LPD$V_ACTIVE bit: 


If it was set the generate an ‘'LPD-down'’ event. This event 
ot the IRP since it is queue to the ACP to signal the 
event. 


en the "‘LPD-down'’’ event wa 


If it was already clea h s 
RP to the Xmit pool, even if 


r, 
generated. Recycle this 
a Rev IRP. 


t already 
I it is 


| 
NOTE: There is only one RCV IRP ever queued to a datalink. | 
Because of this, because the ‘‘LPD-down’’ event is 
generated only once, and because all failed 1/0 packets 
== Rev and Xmt == gent here, it makes no difference 
which type of IRP is used to signal the ‘‘LPD-down’ 
event and which are used to return the xmitter 
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nsport haus tog) 
ecycle IRP Xmit IRP pool 


15$: 


30$: 


50$: 


60$: 


H 7 


Layer 16-SEP-1984 01:37:53 
j mitt ri 04:30:33 
; resources. 
6LBS RPSL 10ST1(R5),15$ 
BBSC = #LPD ACTIVE - 
LPD$W~STS(RBS ,- 
TR_LPB_DOWN 
ECB LPDSB_IRPCNT (RB) 
EQL 00$ 


D 

8 

: Account for IRP being 
; solicitor if possible. 
; =o the ““‘square-root-Limit 
¢ 

B 


reactivating a solicitor since these Limits eax have been 
changed asynchronously be NETACP while this IRP was being 
processed by the datalink. 

MPB LPD$B_IRPCNT(R8) ,- ; Does ‘‘square-root-Limiter’’ allow 

PD$B_XMT_SRL(RBS : another 1/0 ? 

GTR : If GTR then no 

TSTB PD$B_XMT_IPL(R8) ; Does 9 Rput~pecket=liaiter” allow it? 

LEQ : If LEQ then no 

REMQUE atta ieataaalaae ; Get the waiting process 

VS 30$ : If VS then none 

DECB LPDSB_XMT_IPL(R8) ; Consume ‘‘input-packet-Limiter’’ slot 

NCB LPD$B-IRPCNT(R8) ; Account for IRP to be queued 

INSQUE (RO), SRCB$Q_IRP_WAIT+4(R2) ; Move to IRP wait state 


necessary. 
REMQUE @RCBSQ_IRP_WAIT(R2),R5 ; Get oldest waiting process 
BVC 50$ : If VC then got one 
INSQUE (R3),RCB$Q_IRP_FREE(R2) ; Queue the IRP 
CMPW RCBSW_CUR_PKT(R2),- : Does IRP pool needs reducing? 
RCBSW-MAX~PKT(R2) : 
BLEQU 60$ : If EQL, no 
BSBW TRSADJUST_IRP 3; Adjust Xmit IRP pool 
BRB 60$ : Continue 
MOVZBL FKBSL_FR3(R5),R8 * Get LPD index 
MOVL  @RCBSC_PTR_LPD(R2)CR8],R8 ; Get LPD address 
MOVZWL FKBSL FR4(R5),R9 - Get ADJ index 
MOVL a@RCB$C_PTR_ADJ(R2)CR9I,R9 ; Get ADJ address 
BSBW TRSGRANT ; Restart solicitor 
Done 


returned and advance a single waitin 
Both the ‘‘input-packet-Limiter'’ an 
restrictions must be checked before 


Reactivate a solicitor waiting for an IRP if 
are waiting, return the IRP -=- shrinking the 


AX/VMS Macro v04-00 Page 7 
NETACP.SRCJNETDRVXPT.MAR; 1 


then ''LPD-down’’ event has 
t been processed. 

L "'LPD-down’ 

mn the queue space 

L then report ‘‘circuit rundown" 


C then 1/0 oe successful 
e 


$752 hie. If none 
RP free queue if 


————_—_— 
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tha ts TRLRTRN_IRP = "Recycle IRP Xmit IRP’ pool Sty EET ENETACP. SREINE YDRVXPT MARS 1 . (22) 
55 4 OFC 9 CLRL R5 ; Nullify IRP pointer 
bg FC 3338 RSB 3; Done 
FC 94 
FC 95 
FC 39 100$: 3 
FC 9 ; 
Ore 3 3 Report that the LPD has been ‘'run-down'"’ 
FC 00 : 
0080 ¢2 B7 OFC 01 BECW RCBSW_CUR_PKT(R2) ; Account for xmit IRP going away 
1¢ AB 6 ae 8 INCB LPD$B_ IRPENT (RB) ’ 
50 0B 90 orp Sz MOVB ous rere CRD,RO ; Setup event code for N 
0072 30 OFD 05 BSBW TRSQUE_IRP_AQB t Queue IRP to NETACP 
OFD 06 RSB ; 
OFD 07 
OFD 08 


Prevent LPD getty until CRD 
successfuily makes it 9 — 


ay 


$ 7 
NE TDRVXPT = NETDRIVER Transport (Routing) Layer 16-SEP-1984 37:53 VAX/VMS Macro v04-00 Page 7 
thet TR_LPD_DOWN = Precese “LPD dour’ event ae eee 9 93:30:88 NETACP.SRCINETDRVXPT.MAR; 1 . (38) 
FO? 19 -SBTTL TR_LPD_DOWN - Process "'LPD down’’ event 
FD? 1¢ i 3+ 
444 1? 3; TR LPD_DOWN - Process ‘'LPD down’ event 
FD? 3315 : 
FD? 1$ : ; The LPO is marked inactive. ALL suspended fork peqessese waiting to 
FD7 1 ; transmit over the datalink are reactivate with their request to xmit 
FD7 18 3 3; denied. 
FD7 1 : 
FD? 0; 
FD? 1 ; INPUTS: Re LPD address 
FD7 gi : e IRP address 
OFD7 : R2 RCB address 
OF D7 4 : 
BED? 5 ; OUTPUTS: R5 Zero 
FD? 6 : RO Destroyed 
OFD7? 3327 ; 
OFD7? 3328 : ALL other registers are unchanged. 
OFD7? 3329 : 
OFD7 3330 ;- 
OFD7 3331 TR_LPD_DOWN: Process ‘'LPD down'’ event 
O2FE 8F 8B aces $36 PUSHR #*M<R1,R2,R3,R4,R5,R6, R7’ eR9> ; Save regs 
1¢ A&S = 97 he $3¢ DECB LPD$B_IRPCNT(R8) 3; Account for IRP being returned 
OF DE 399 ; 
ares 336 3; Deallocate the LPD CACHE, if present. 
52 DD OFDE 3339 PUSHL R2 ; Save RCB address 
50 66 A8& 00 OFEO 340 MOVL LPDSL_CACHE (R8) ,RO 3; Get CACHE address 
OC 13 OFES $30) BEQL a3 ; Br if none 
50 OC C2 OFE6 308 SUBL ; Get start address of CACHE 
66 AS DS OFED 334 CLRL Coos CACHE (R8) ; Zero CACHE pointer 
00000000 ' GF 16 OFEC 44 JSB G*EXESDEANONPAGED : Deallocate the pool 
52 8ED0 A 45 10S: POPL R2 3; Restore RCB address 
FF $08 
OFFS 47 3 
OFFS 48 3 
OFFS 49 : Reactivate all solicitors esscc tated with this LPD and which are 
me $29 ; waiting for an IRP, denying each of them permission to transmit. 
OFFS 335 : 
57 4CA of Fe 38 MOVAB date IRP_WAIT(R2) ,R7 ; Get Listhead 
ae D FF9 4 MOVL 3; Make cop Py 
28 55 DO OFFC 55 30$: MOVL R6 ; Advance last fork plock ptr 
5 66 DO OFFF 36 40$: MOVL RReh RS : Get next fork bloc 
57 D1 100 5 CMPL = R35, R? : Listhead 
i 13° («1 28 BEQL 83 3 af EQ, las i one 
10 A 91 100 5 CMPB FKBSL_FR3(R5), 3; Associated with this LPD? 
20 A& 1 4 60 PD$B_ PTH_ INX (RB) 3 
FE 12 100C 61 BNEQ 4 ; If NEQ then no 
55 6 F 1 oF 66 REMQUE (R5),R5 ; Deque it 
1F ag ; 101 6 INCB (Bose. XMT_IPL(R8) ® ieture request slot 
F51 1014 64 BSBW TRSDERY : Reactivate with talkers 
E6 11 1017 65 BRB 3 Loop 
1019 66 50$: 3 


o-onWT wo 
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K 7 
ER Tr t (Routing) 16-SEP-1984 AX/ VM v04-00 Pose 7 
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? ; 

8 : React ivate all sol tcl tors waiting for room on the datalink queues, 
0 : domi ng each permission to transmit. 

7 ; 

i REMQUE OLP080_REQ_WAIT(RB).RS ; ; Get next fork block 

7 BVS 60$ VS then none 

74 BSBW TRSDENY ; Reactivate with failure 
g BRB 50$ ; Loop 

fi 60$: POPR #*M<R1,R2,R3,R4,R5,R6, R7, R9> ; oe + 

£8 MOVB NE TMSGSC IRP,RO ; Setup the eve 

7 BSBB et AQ ob” i Signal the ACP. clear R5 
+ RSB ; Done 


LF 
NETDRVXPT = NETDRIVER Transport (Routing) Layer 16-SEP-1984 01:37: AX/VMS Macro V04-00 Page 74 
yO4e000 TRSGIVE_TO_ACP = Fel entry to queus a bu eet 7 30:88 ENETACE.. SREINETDRVXPT.MARs 1 " (24) 
-SBTTL TRSGIVE_TO_ACP = ECL entry to queue a buffer to the ACP 
-SBTTL TRSQUE_QQE"AQB - Queue WQE to AQ 
-SBTTL TRSQUE_IRP_AQB = Queue “‘LPD down’’ IRP to AQB 
+ 
TRSGIVE TO_ACP - ECL -—_— to queue a buffer to the ACP 
TRSQUE_QQE-AQB = Queue WOE to AQB 
TRSQUE_IRP_AQB = Queue IRP to AQB - RCBSW_TRANS was already inc‘'d 


Setup the common fields in the WQE and queue it to the AQB. 


The action here is to fork before queueing the IRP since SCHSWAKE may 
have to be called. SCHSWAKE assumes it i% called at IPL$_SYNC 


In the case of TRSQUE_IRP_AQB, the IRP has already been accounted for, 
neither the TRANSaction count nor the AQB_CNT will have to be incremented. 


D 
V 
102E 3 
102E 4 
1056 3386 
102E 5 
102E 8 
102E 9 
102E 0 
ee 
102E : 
102E 4 
ee 
1036 3397 
102E 8 
102E 9 
1036 $401 
102E ¢ INPUTS: R9 ADJ address or zero (only if TRSQUE_AWQE_AQB) 
102E R8 LPD address 
102E 4 R5 WQE address - block to be queued to NETACP 
102E 5 R2 RCB address 
102E 6 R1 Not used 
102E 7 R If TRSQUE_IRP_AQB then the NETMSG$... event code 
102E 8 Else, not looked at 
102E 9 
102E 0 
: ; 1 OUTPUTS: R5 0 
! ; 5 ALL other registers are preserved. 
102E 5 ;- 
: : § -ENABL LSB 
102E 8 TRSQUE_WQE_AQB: ; Queue WOE (i.e., CXB) to AQB 
14 91 102E 9 CMPB #NETSC_MAX_WOQE,- ; Can we insert more entries 
00A9 C2 1 30 0 RCB$B_AQB_CNT(R2) ; _ on AQB? 
62 19 1 ; 1 BLSS 0$ : Br if no, deallocate WQE 
OOA9 C2 «696 = =—1035 § INCB RCB$B_AQB_CNT(R2) ; Increment count of new entries 
1039 ; _inserted on AQB 
12 AS 20 A8 BO 1039 MOVW LPDSW_PTH(R8) ,WQESW_REQIDT(RS) ; Remember datalink i.d. 
OC A2 B6 103E 5 INCW RCBSW_TRANS (R2) ; Count new transaction 
1A 17—s:1041 § BRB 15$ ; Continue, don't convert block 
: r 3; structure type 
104 : TRSGIVE_TO_ACP:: ; ECL entry pass block to ACP 
OC A2 B6 104 430 Inu RCBSW_TRANS(R2) : Else, count new transaction 
WwW «11 4G 3431 BRe 108 : Continue 
1 ‘3 4 g TRSQUE _IRP_AQB: ; Queue IRP (as WQE) to AQB 
$8 AS 4 104 434 CLRW WOESW_ADJ INX(R5) ; No ADJ index available 
14 AS 8 AS 3 1 8 435 MOVAB = IRPSL [osTi th} WQESL_PM2(R5) ; Store ptr to I0SB image 
19 AS. 29 90 1080 3436 MOVE RO,WOESB_EVT(RSS : Setup the event 
12 Ad 20 AB 80 1054 34 MOVW LPOSW PTACRB) ,WOESW_REQIDT(RS) ; Remember datalink i.d. 
OA AS 1 ' 28 ? } 10$ MOVB S“#DYRSC_NET ,WOQESB_TYPE(RS) : Convert the IRP to a WQE 


m 7 
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v04-000 TRSQUE_IRP_AQB = Queue UPD dun" TRP to 59-SEP-1984 83:30:83 INETACE. SREINETDRVXPT MAR: 1 . (24) 
iF 6B re 15$: PUSHR #*M<RO,R1,R2,R3,R4> ; Save regs 
18 AS 10 A2 0 44 MOVL RCBSL_AQB(R2) Woest PM2+4(R5)  : Save AQB address 
08 AS 06 44 MOVE #IP = QUEUE AST FKBSB_FIPL(R5) ; Setup fork iPL 
10 A D MOVO = FKBSL-FR3(R5) ,R3 ; Prevent EXESFORK from 
9 10 BSBB 30$ : Create fork process 
D4 CLRL RS 3; Prevent access to this block 
1F =6OBA POPR #*M<RO,R1,R2,R3,R4> : Restore regs 
05 RSB 3; Done 


00000000'GF 16 30$: JSB G*EXESFORK Create fork process 


BRR RR RR RRR PRE ERP EP EES 
AAAAOOUUIUNNMMNNN BRR RS 
UEWR OOO NOAULSWN—OOONOUE 


DSBINT #IPL$_SYNCH : We're back. Sync with SCHSWAKE 
54 18 AS 00 MOVL WaESL PM2+4(R5) RG : Get AQB address 
046 B84 65 OF INSQUE (R5),GAQB$L_ACPOBL(R4) ; Inert IRP at end of queue 
OA 1 BNEQ 40$ ; Br unless first 
51 OC Ad 00 MOVL AQBS$L_ACPPID(R4),R1 3 Get PID 
00000000'GF 16 JSB “SCHSWAKE ; Wake the ACP 
40$: ENBINT 3; Restore IPL 
05 RSB + Done 
466 3 
rth : Too many entries on AQB queue 
50 55 DO 1097 3469 50S: MOVL RS, RO ; Copy WQE address 
00000000'GF 16 109A 3470 JSB G*COMSDRVDEALMEM : Deallocate it 
05 - RSB ; Return to caller 


On a ts ss a a ss ss 8 ss a Ss 1 ss ss 2 5 mo 


ooooo 
> 


} 
destroying these fields | 
471 
$078 -DSABL LSB 
47 


=» 
oe 
J 
‘w 
oo 
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we ORR = NET 
v04-000 TRSLO NETACP.SRCIJNETDRVXPT.MAR; 1 (25) 


cn 
P) 


BEER R RRR EER ELE EEE E 


EP-1984 01:37: 
Ep-1986 02:30:38 
T = “Local’’ datalink driver transmit 
Vv = “Local’’ datalink driver receive 
MT = “‘Local’’ datalink driver transmit 

Cv = “‘Local’’ datalink driver receive 


This routine tinulates a datalink driver. It is used to allow the Transport 
layer to handle IRPs for ECL-ECL communication in a manner consistent with 
the remainder of the Datalink layer. Both the transmitter and the receiver 
appear to ‘'buffered’’ (as opposed to ‘‘direct’’) 1/0. 


It appears as a Line constantly in ‘“‘lLoopback’’. The receive IRP is made to 
point to the buffer carried by the transmit IRP. In order to get ouay with 
this, the XMSV_STS_BUFFAIL bit must be set in the receive’s IRPS$L_I10ST2 
field -- this prevents it the buffer from being consumed and is still 
attached to the IRP when it is requeued for another receive operation. 


WO OONOUE WN O OOnNIOuM 


OOOODODODOODOOOOOO NNN -95 


494 
NOTE: nl pe the buffer this way ony works if the receive is 
completed before its corresponding transmit. Also, it can 
only work if the buffer is never sent to NETACP -- this 
restriction is enforced by the fact that the ‘‘local’ 
datalink is only used to carry ECL messages. 


The pertinent IRP fields are as follows: 
On input to this routine: 


Rev's Xmt's 
IRPSL_SVAPTE Garbage Buffer pointer 
IRP$W_BCNT Garbage Message size 
IRP$L_IOST1 Garbage Garbage 
IRP$L_10ST2 Garbage Garbage 


When sent to I/0 completion: 


>>>? Pr rr rr rr rrrrrrrrrrrr?rr rrr rrr Yr rrr rrrrrrrrr>rr?rrrrrrrr Ve 
oe a a a a a a a a a a a a a ed a ed a ld a ad a a a ld a a a a al a a a a a a a 


meGP oo Se Be Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Ge Ge Ge Se Ge Se Se Se Se Ge Se Se Se Ge Se Se Se GeGe Ge Se Sse Sete tes 


me ee a ad ed od 9 — — 9 — 4 —d —) sd td sd ss 2s ts SS as 9 2 2 SS oo 
mt 


CSOOOSOCOOCSOOSCOOOSCOOSOOOOOCOO OOOO OOOSOO OOOO OOOOOOOOOO OOOO OOOOOOOOOS I 


Se eee ee hal habesb ab ah dh dh dh ab 
=—=DOONOULS WA $9 OONAULS WN "OC OONOUSWN—O”0 


WARRIOR 4 9 = MOO OOOOOOOOO 


WWAA.AAAAANAAAAAAAAAAA 


IRPSL_SVAPTE Buffer pointer 
IRP$W_BCNT message size 
IRPS$L_10ST1 SS$_NORMAL in low word 


IRP$W_BCNT in high word 
XMSM 


IRP$L_I0ST2 _STS_ACTIVE!= 
XMSM~STS~BUF FAIL 
INPUTS: R3 IRP address 
OUTPUTS: R5-RO Garbage 
SLOC_DLL_XMT: 
MOUL 


R3,R1 
IRPS$L_ASTPRM(R1) ,R2 
@RCB$O_LOC_RCV(R2) .R3 


MOVL 
REMQUE 


; “‘Local’’ datalink driver xmt'r 
; Copy _IRP ad 
; Get RC 


e 
; Get a waiting receive 


Buffer pointer 

Message size 

SS$_NORMAL in low word 
IRPSW_BCNT in high word 
XMSM_STS_ACTIVE 


ress 


——————— | 
<<< tt tt CLL CC CCC CC LL CL 
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NETDRVXPT = NETDRIVER Transport (Routing) Layer 16-SE 3 VAX/VMS Macro v04-00 Page 77 
teeth TRSLOC_DLL_RCV = ‘Local"’ datalink drive aie 3B 83; 36; 33 ENETACP. SRCINETDRVXPT.MAR; 1 (25) | 
| 
17 1C OAC 35 BvC XFER : If VC then got one 
48 B2 61 43 10, 5 : INSQUE (R1),@RCBSQ_LOC_XMT+4(R2) ; Else queue the IRP | 
YR Coe 
108 536 TRSLOC_DLL_RCV: ; “Local datalink driver rcv'r 
ef . D4 198 5 5 CLRL IRP$L_SVAPTE(R3) : Erase former buffer ptr 
52 4A dO 1386 5 8 MOVL IRPS$L_ASTPRM(R3) ,R2 ; Get RCB 
51 44 B82 OF 10BA 35 REMQUE a@RCB$O_LOC _XMT(R2), R1 ; Get a waiting transmit 
ies, ae oF 540 BV TAT : If VC then got one 
40 B2 63 OF 10C 541 INSQUE (R5),@RCBSQ_LOC_RCV+4(R2) ; Else queue the IRP 
05 10C4 226 RSB 
13¢ 54 
10¢ 544 XFER: ; 
10¢ 545 3 
10€5 248 ; Setup IRP's for 1/0 completion. Let the RCV IRP temporarily 
10C5 354 § share the XMT IRP's CXB in order to deliver the received message | 
10C5 3548 ; to the ECL layer. 
10¢5 3549 : | 
2C Al O00 ides 23 MOVL IRP$L_SVAPTE(R1) Setup R buf f | 
7 ; Setup Revr buffer ptr 
ac AS 1ocB $55¢ IRP$L~SVAPTE(R3) ; : . 
32 A3 2A1 B60 10CA 355 MOVW IRPS$W_BCNT(R1), IRP$W_BCNT(R3) ; Setup size of message 
38 Al 00° BO 10CF 554 MOVW S*#SS$_NORMAL {RPSL 16 ST1(R1) ; Setup 1/0 statu 
3a Al «032 Al =—«BOsO«10D3—=— 3555 mov IRPSW_BCNTCRISIRPSC. | 10ST1+2(R1); Setup xfer size 
38 A338 Al DO 1008 3556 MOV IRPS$L_ 10ST1(R15 IRP$C_IOST1(R3) ; Copy XMT status to RCV IRP 
3C Al 0800 8F 3C¢ 1908 557 MOVZWL #XMSM_STS TACTIVE-TRPSC. 1OST2(R1); getup Xmtter device status 
3C AS 1800 8F 3C 10E 558 MOVZWL #XMSM~STS_BUFFAIL!- ; Set Revr device status 
10E9 3559 XMSM_ ats “ACTIVE, IRP$L_IOST2(R3); = BUFFAIL is crucial since 
10E9 3560 3 rcvr doesn't own the CXB 
10E9 3561 H 
10E9 266 3 
10E9 356 ; The order here is crucial. The RCV must be posed before the XMT 
10E9 3564 ; so that the XMT end-action routine doesn't deallocate the buffer 
10E9 3565 ; before the RCV'r has had a chance to look at it. Note that the 
3 208 ; BUFFAIL flag is set so that the RCV'r cannot take the buffer. 
10E9 3568 : 
03 10 1069 3569 BSBB POST ; Post the RCV_IRP 
53 51 oO 10€B 3570 MOVL R1,R3 3 Get the XMT IRP for posting 
OA AS OA 91 +33 571 POST: CMPB S*#DYNSC_ IRP, IRP$B_TYPE(R3) ; IRP 
OE 12 10F 276 BNEQ 70$ ee ait bug 
50 O0000000'GF 9E& 10F4& 357 MO G* ocee. Oy set RO : Get 1/6 post back ptr address 
90 63 OE 10FB 3574 INSQUE (R3),@ ; Queue the IRP 
10FE 3575 SOF TINT rPLé epost ; ALWAYS Post an interrupt due 
1101 278 ; to an obscure system bug 
113) arf 60$: RSB : Done 
1105 579 70$: BUG_CHECK NETNOSTATE,FATAL 3; Bugcheck 
1106 3580 
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NETDRVXPT = NETDRIVER Transpo 
v04-000 TRSADJUST_IRP = Adjust the number of IRP 5-SEP NETACP.SRCIJNETDRVXPT.MAR; 1 (26) 
1} $ 5 § -SBTTL TRSADJUST_IRP = Adjust the number of IRPs in the pool 
11 4 3+ 
1 ? 2 3; TRSADJUST_IRP - Adjust the number of IRPs in the pool | 
1106 3587 ;: 
1106 35 8 ; The number of free IRPs are adjusted in whatever direction necessary to 
1 ? 285 ; bring RCB$W_CUR_PKT closer to RCBSW_MAX_PKT. | 
1196 23) : INPUTS Re RCB point | 
: : ointer 
1198 238 : , | 
11 594 ; OUTPUTS: RO Low bit clear if free queue is empty. | 
1106 3595 ; Low bit set otherwise. 
1106 3596 ; 
1106 3597 ; 
1106 3598 ; ALL other registers are preserved. 
1106 3599 ; | 
1106 3600 ;- | 
1106 3601 TRSADJUST_IRP: ; Adjust IRP pool 
53 OD 1198 one POSHL = R3 ; Save reg 
0080 C2 B1 1108 3604 10$: CMPW RCB$W_CUR_PKT(R2),- ; See what adjustments are needed 
0082 C2 110C 3605 RCBSW_MAX_PKT(R2) : 
29 13 110F 3606 BEQL 0$ ; Br if none 
ig 1A 1111 3607 BGTRU 0$ : Br if decrease is needed 
3 10 1113 3608 BSBB TRSALLOC_IRP ; Get an IRP if possible 
22 50 €9 1115 3609 BLBC R : Br on failure 
00 B82 63 OE 1118 3610 INSQUE (R$) ,aRCBSO IRP_FREE(R2); Insert the IRP onto the free List 
0080 C2 B6 111C 3611 INCW RCBSW_CUR_PRT(R2) ; Account for IRP 
OC A286 1150 $16 INCW RCBSW_ TRANS (R2) ; Here, too 
i °-39 11S3 a7 BRB 50$ ; Only allocate 1 at a time 
50 00 B2 OF 1125 615 30$: REMQUE @RCBSQ_IRP_FREE(R2),RO ; Get IRP if any 
OF 1D 1129 3616 BVS 50$ ; If VS then none 
0080 C2 B7 1128 3617 DECW RCB$W_CUR_PKT(R2) 3; Account for the IRP 
C A2 B7 112F 3618 DECW RCB$W” TRANS (R2) ; Account for it here, too 
00000000'GF 16 1132 3619 JSB G*COMSDRVDEALMEM 3; Deallocate it 
i. we 7 : $31 50s BRB 10$ 3; Try again 
ats ° § : Return a flag to the caller indicating if the queue is empty 
50 94 113A 3624 CLRB 0 : Indicate empty 
a D1 113C 3625 CMPL RCB$Q_IRP_FREE(R2),- : Is queue empty? 
00 8 11 5 6 3 @RCB$O_IRP_FREE (R25 : 
02 13 114 6 BEQL 60$ ; If EQL, its empty 
50 96 ites ; 8 INCB R 3 Indicate non-empty 
53 BEDO 1144 3630 60S: POPL R ; Restore reg 
05 1147 3631 RSB 
1148 3632 
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NETACP.S REIN ETDRVXPT.MAR; 1 (27) 
-SBTTL TRSALLOC_IRP - Allocate IRP 


+ 
TRSALLOC_IRP = Allocate IRP 


An IRP is allocated and its header is initialized. 


0 Status code 
ALL other registers are preserved 
; Allocate Transport IRP 


ova R1,-(SP) ; Save regs 

MOVZBL #IRPS$C_LENGTH,R1 : Setup IRP size 

/SB G*EXESALONONPAGED 3; Get the block 

BLBC RO,10$ ; Br on error 

MOVL R2,R3 3; Copy block address 


38 zero the ertire IRP for now to catch access violations 
3& eventually, only the IRP$L_IOSB field (buffer ptr) will 
38 need to be zeroed 


PUSHR a M<RO,R1,R2,R3,R4,R 


MOVCS #0,(SP5,#0,#IRPSC CEnGtH, (R3) 
POPR Sache. R1,R2,R3,RZ,R 
ADDL #IRPSW_SIZE,R2 3; Advance to size field 


ASSUME IRPSB_TYPE EQ 2+IRP$W_SIZE 
ASSUME IRPSB-RMOD EQ 1+IRPSB_TYPE 


; Enter size for deallocation 
: Enter buffer type 

: Enter driver I 

: Restore regs 


INPUTS None 
OUTPUTS: +, IRP pointer if successful 
Return 
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-SBTTL TRSALLOCATE - Allocate and initialize buffer 
TRSALLOCATE = Allocate and initialize buffer 


A buffer is allocated and initialized 


INPUTS: R1 
OUTPUTS: R2 
Ri 
RO 

FRSALLOCATE: 
PUSHL R3 


JSB 1 eeepatatamages 


MOVW R1,FKB$W_SIZE(R2) 
MOVB  S*#DYNSC~CXB 
FKBSB_ TYBE(R3) 


POPL R3 
RSB 


Size of buffer 


Ptr to buffer if successful 
Garbage 
Status 


Allocate memory block 
Save reg 


; Get buffer 
Br on error 
; Setup size 
; Setup type 


; Restore reg 
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NETDRVXPT = NETORIVER Transport (Routing) Layer 16-SEP-1984 01:37:53 VAX/VMS Macro v04-00 Page 81 
Vos5000 TRIFILL_JNX = Conditional ty *¥LL journal ets 7 83:30:88 ENETACE.. SREINE TDRVXPT MAR: 1 " 35), 
118E 3706 .SBTTL TR.FILL_JNX = Conditionally fill journal record. | 
118€ 37 8 IF DF UNX$$$ | 
118E 3709 ;+ 
1 3 fy ; TRIFILL-JNX = If journalling is enabled, fill journal record. 
118— 371 : Inputs: 
118E 18 3 
118E 3714 ; RO = Journal record type 
118—€ 3715 ; R1 = Address of message 
118E at : Ré = RCB address 
118— 3717 ; R7 = Size of message 
118€ 3718; R8 = LPD address 
118— 3719 ; 
118€ 3720 ; Outputs: 
a 721; 
118— 37 § : No registers are destroyed. 
118E 3723 ;:- 
118E 3724 
00000040 118€ 3725 JNL_REC_SIZ = 64 
118E 3726 
118€ 3727 TR_FILL_JNX: 
55 DD 118€ 3728 PUSHL R5 ; Save reg 
55 18 A2 DO 1190 3729 MOVL RCBSL_PTR_JNX(R2) ,R5 ; Get the journal buffer 
OA 13 1194 3730 BEQL 100$ 3; If EQL then no buffer 
06 AS 0040 8F B11 1196 fal CMPW #JINL_REC_S1Z,6(R5) 3 Fnough space left? 
02 1E€ 119C 37 ¢ BGEQU§ 100% 3; If GEQU then yes 
04 10 %119F 373 BSBB 200$ : Record data 
55 8EDO 11A0 te 100$:  POPL R5 ; Restore reg 
05 11A3 3735 RSB 
11A4 3736 
1F BB 11A4 3737 200$: PUSHR #*M<RO,R1,R2,R3,R4> ; Save regs 
06 AS 0040 8F A2 11A6 3738 SUBW #INL_REC_$12,6(R5) ; Acquire space to be used 
4 65 00 11AC 3739 MOVL (R5),R4 ; Get output pointer 
65 00000040 8F CO 11AF 3740 ADDL #JNL_REC_SIZ,(R5) ; Bump output pointer 
84 00000000'GF 7D 1186 3741 MOVG  G*EXESGO"SYSTIME,(R4)+ : Enter timestamp 
84 50 90 118D reg MOVB RO, (R4)+ :; Enter record type 
84 20 A8 90 11C0 74 MOVB LPD$B_PTH_INX(R8),(R4)+ ; Enter Li -d. 
84 57 BO 1104 3744 MOVW 7,(RG)+ ; Enter total message size 
ei 37 a 1G? 3765 MOVCS R7,(R1),- j ae 
64 34 00 11CA 3746 #0,#JNL_REC 6 WS Capa ; Enter begining of message 
1F BA 11CD 3747 POPR #*M<RO,R1,R2,R3,R4> ; Restore regs 
05 11CF 3748 RSB 3; Return to caller 
1108 749 
11D 750 ~ENDC 
11D0 3751 
1}08 236 
11D fe 
00000000 3754 -PSECT $$$116_DRIVER,LONG,EXE,RD,WRT ; Make sure we're at the end 
000 3755 3; of the driver 
833 is 
fe NETSEND 
00 6 28 HALT 
001 3760 
001 3761 
001 3762 .END 
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AX/VMS Macro V04-00 Page 86 
Symbol table NETACP.SRCINETDRVXPT.MAR; 1 (29) | 
$$_NSPMSG 2 CXB$W_R_SRCNOD 3 
$$_TR3MSG = CXB$W_X-NSPACK 5 
$$-TR4MSG = CXB$W-X-NSPLOC 51 
ACPSC_STA_F = 00004 CXB$W_X_NSPREM 4F 
ACPSC_STA_H 2 5 CXBSW-X-NSPSEQ 0 0023 
ACPSC“STA_1 = 000 8 0 DISP_RCV_MSG 000869 R 02 
ACPSC~STA_N = 00000001 DYNSC_CXB = 00000018 | 
ACPSC_STALR = 00000 ¢ DYNSC_IRP = 0000000A 
ACPSC_STA_S = 0000000 DYNSC_NET = 00000017 
ADJ$B_LPD_ INX = 00000002 EXESACONONPAGED eeeneeee =X 08 
ADJ$B_PTYPE = 00000001 EXESALTQUEPKT eeeeeeee =X 0 
ADJ$B_ 2 9800000 EXE SDEANONPAGED aeeneene xX 06 
ADJSC_PTY_AREA = 00 EXESFORK ekeneeee x 
ADJSC_PTY_PH = S444 EXESGL_ABSTIM aeeneeee = X 02 
ADJSC_PTY_PH = 0000000 EXESGQ_SYSTIME aeeeeeee KX 02 
ADJSC_PTY_PH3N = 00000001 EXIT 0000348 R 02 
ADJSC_PTY_PH4 = 00000004 FINISH _XMT_HDR 0000D11 R 02 
ADJ$C_PTY_PH4N = 00000005 FKBSB_FIPL = 00000008 
ADJSV_LS = 00000003 FKBSB_TYPE = Q000000A 
ADJ$V_RUN = 00000001 FKBSC_LENGTH = 00000018 
ADJ$W_BUF S1Z = 00000006 FKBSL_FPC = 0000000C 
ADJ$W_INT_LSN = 00000008 FKBSL_FR3 = 00000010 
ADJ$W_LPD = 00000002 FKBSL_FR4 = St 
ADJ$W_PNA = 00000004 FKBSW_SIZE = 00000008 
ADJ$W_TIM_LSN = 0000000A GET_OOT_ADJ 00000094 02 
ADJ_UP 00000980 R 02 HELCO_MSG_SIZE = 0000002 
AGEB QOO00AD7 R 02 INIT_CXB_FREE QOOOO1AA R 02 
AQBS$L_ACPPID = 0000000C INIT_RCV 000000DD R 02 
AQBSL_ ACPO = 00000004 10$_READLBLK aekeeene 02 
BUGS$_RETNOSTATE teeeeere X 02 10$"WRITELBLK teeneene XX 02 
CA$_RMEASUR = 0000000 IOCSGL_PSBL eeeeeree 02 
CHECK_ROQR 00000883 R 02 IPL$_I6POST = 00000004 
CNF$_ADVANCE = 00000000 IPL$_QUEUEAST = 00000006 
CNFS$_QUIT = 0000000 IPL$_SYNCH = 00000008 
CNF$_TAKE_CURR = 0000000 IRPS$B_EFN = 000000 ¢ 
CNF$_ TAKE PREV = 00000001 IRPS$B_PRI = 000000 
COMSBRVDEALMEM aeeeeeee =X 02 IRP$B_RMOD = 900000 
CRC16 00000000 R 02 IRP$B_TYPE = QO00000A 
CXBSB_R_AREA 00000039 IRPS$C_LENGTH = 000000C4 
CXB$B_R_ sit 4 4 8 IRPS$L_AST. = 00000010 
CXBSB~R-NSPTYP 00000039 IRPSL-ASTE BM = 00000014 
CxB$B_ TYP = 0000000A IRPS$L_BCNT = 00000032 
CXB$B_X_NSPTYP 000004E IRPSL_IOSB = 00000024 
CxB$C_DCL 2 4 ta IRP$L_10ST1 = 900008 8 
CXBSC_HEADER = 0000004 IRP$L_10ST2 2 ¢ 
CXB$C_OVERHEAD = a4 C IRP$L_PID = Seo boo TE 
CXBS$C_R_LENGTH = 000 00 C IRP$L_SAVD_RIN = 0000007 
CXBSL_R_MS 000 IRPSL-SVAPTE = 0000002¢ 
CXBSL_R-RCB $ S 0 IRP$L_UCB = 3008 1¢ 
CXB$T_D = 0 IRP$L_WIND = 00000018 
CXB$T_X_DATA 00000 IRP$M_BUF 10 2 3008 91 
CXBST_X_XPORT 0000048 IRPSM_ = 000000 
CXB$W"R~ADJ 000003A IRP$Q"NT_PRVMSK z 004 
CXBSW_R_BCN 90 3 0 IRP$Q"STATION s 4 | 
CXB$W_R_DSTNOD 4 IRP$W_BCNT = | 
CXB$W"R-NSPSEQ 0 8 A IRP$W_BOF F s 98 0 
CXBSW"R”PATH 0000032 IRPSW”CHAN = 000000 | 
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Babel table Se eee eer Bases fi B30 388 ENETACE. SREINE VDRVAOT MARS 1 (33) 
ym 
= FF 
evar : pauses TE Roe ay 
tRPSu s A NETSC“MINBUFS1Z 2 0 
im RET 40 NET$SC“TID_ACT s 
INSEE . 1 NETSC“TID-RUS 2 1 
TSTENER 2R 02 NETSC“TID“XRT = 0000000 
t s A NETSC"TRCTL_CEL = 0000000 
Matted = D NET$C"TRCTL-OVR = 000000 
ett ett = 1 NET$C"UTLBUFSIZ = 00001000 
LOSE PTC IN $00026 NETSERD 900000 RG 03 
LPDSBUXRT IPL . ittigts NETSM_MAXLNKMSK = 000003FF 
LEER XRT “SRE = 0000001 NETSURSOL_INTR tennessee X02 
nattanttioett = o008001 NETMSGSC_RDJ = 9000000¢ 
ee HiFi : BSS mie : HESS 
LPDSL_CNT_APR = 0000003A N TSGSE_ CRD = Sonnanee 
estteedtee ts: . boosnos¢ NETHSGSE“LSN = 00000009 
LOD ST TENT “TPS : 004 NETMSG$C~NOL = 00000007 
at tee tae : tdi NETMSG$C~NUL = 00000006 
LPDSLRTRZLIS = 9000009 NETMSGSC~OPL = 00000004 
ot tet = 00000010 NETMSG$C PFE = 00000008 
pst ur = 0000000C NETMSG$C~UNK = 00000001 
ett taste = 00000001 NETUPD$. BLL. ON = 90000005 
en -ren = 09909000 NETUPDS REACT RC = 0000000¢ 
PpSVTRETTVE. = §008000 NETUPD$~SEND_RELLO = 00000000 
yee ag = 0000000E NETUPD$S TESTA = 0000000F 
at eg tte : Miitdaita NODES PER PA = 00000100 
td = ittant NODE. SHIFT = 00000008 
atte ~$ 000006 OT REACH 0000070B R 02 
at esr : itt’ NSPS$$_QUA = 00000000 
neti = 00000007 NSPSSS~QUALALTFLW = 90900000 
et i = Bopoobos batt a hy rea = 00000000 
LED Sun burs = 00000050 NSP$$$~QUAL "INF = 00000000 
atte te : §008007% NSP$$$~QUAL MSG = 00000000 
+ tee 7 00004C NSP$$$~QUAL “SRV = 00000000 
LL DSUTORTT am tdatets NSPSC_EXT_LNk = O000001E 
Hrd : $0 000018 NSPSC "FLW DATA = 00000000 
tPDSUTPIN” 2 90000020 NSPSC~FLW~INT = 00000007 
sui] = 90000016 NSPRETELWIROFF = 00000001 
MAK NODES” . §0000406 NSPSC_FLW_XON = BORO 
x oes  eeeeeeee X02 SP$C"HS7Z~ACK = 0000000 
GT eL Br TPASE s 1 NSP$C7HS2~CA = 00000003 
IEE PENT ALOR = Mitte 5 NSP$C7HSZ~CC = 90000064 
NE TEE TEENT = 86 1 NSP$C"HSZ~CD = 00000 FO 
Weiseripen : 6 NSPSC"HS2~CI = 000000F 
Bh r § NSPSC"HS7~DATA = 00000009 
We TSC mprane Seine : f NSP$C~HSZ~DC = 9000 16 
METS Rance : rt NSPSCHS?-DI = 99000018 
WE TSC" Rantioe = 00000006 NSPSC"HS2~INT = 0 09 
WE TSC -RAKOSS = 0000000C NSPSC7HS2~L = 00000009 
oR se ts = F NSPS$C INF -V31 2 0 01 
NETSC~MAX_AREAS = if SPSC“INE=V : 
ee Tec may -L INES 2 6E NSPSC "INF ~V § = 0 0 
NETSC~MAX7NODES = 000003FF NSPSC“MAXADR 
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Symbol table : . . oro FE= 1 9be 3:30:38 UNETACE.. SREINEYDRVXPT.MAR: 1 
NSPSC_MAX_DELAY = 14 NSP$S_QUAL_INF = 1 
NSPSC_MAX_R_CXB = 7 NSP$S_QUAL_MSG = 5 
NSPSC_MAX_XP = 7 NSP$S_QUAL_ SRV Es 1 
NSPSC_MSG_CA = 4 NSP$S_SRV_01 = 
NSPSC_MSG_CC = 000 NSPS$S_SRV_FLW = 0 
NSPSC_MSG_CI = 000 NSP$S_SRV_SP1 = 8 
NSPSC_MSG_DATA = 0000000 NSPS$V~ACK_NAK = 9 C 
NSPSC_MSG_ = 8 4 NSPS$V_ACK_NUM = 00000000 
NSPSC_MSG_DI = 0000003 NSPS$V_ACK_SP2 = 00000000 
NSPSC_MSG_DTACK = 48 ge NSPS$V_ACK_VALID = 444 
NSPSC_MSG_INT = 00000030 NSPS$V_DATA_BOM = 00000005 
NSPSC_MSG_LIACK 5 44 9s NSP$V_DATA_EOM = B80 O06 
NSPSC_MSG_ = 0000001 NSPSV_DATA_OVFW = 000 
NSPSC_SRV_MFC = 0000000 NSPS$V_DATA_SP = 00000000 
NSPSC_SRV_NFC = 0000000 NSPSV_FLW_CHAN = 00000002 
NSPSC_SRV_REQ = 00000001 NSPSV_FLW_DRV = 00000004 
NSPSC_SRV_SFC = 00000001 NSPSV_FLW_INT = 00000005 
NSPSM_ACK_ = 00001000 NSPS$V_FLW_INUSE = 00000004 
NSPSM_ACK_ = QOOOOFFF NSPS$V_FLW_LISUB = 444: 
NSPSM_ACK_VALID = 444445444 NSPS$V_FLW_MODE = 0000000 
NSPSM_DATA_| = 00000020 NSPSV_FLW_SP1 = 00000003 
NSPSM_DATA_ = 00000040 16 Ie = 00000006 
NSPSM_DATA_OVFW = 00000080 NSPSV_FLW_SP = 00000007 
NSPSM_FLW_ = 0000000¢ NSPSV_FLW_XOFF = 00000000 
NSPSM_FLW_DRV = 000000F0 NSPS$V_FLW_XON = 00000001 
NSPSM_FLW_ = 00000020 NSPSV_INF_VER = 00000000 
NSPSM_FLW_INUSE = 00000010 NSPS$V_MSG_INT = 00000005 
NSPSM_FLW_LISUB = 00000004 NSPSV_MSG_ = 00000004 
NSPSM_FLW_MODE = 00000003 NSPS$V_MSG_SP1 = ti 
NSPSM_FLW_SP1 = 00000008 NSPS$V_SRV_ = 00000000 
NSPSM_FLW_SP = 44 44 NSPS$V_SRV_EXT = 00000007 
NSPSM_FLW_ = 00000080 NSPSV_SRV_FLW = 00000002 
NSPSM_FLW_XOFF S s'4'4'$ NSPSV_SRV_SP1 = 00000004 
NSPSM_FLW_ = 00000 8 NSPS$W_DSTCNK = 00000001 
NSPSM_INF_VER = 000000 NSPS$W_SRCLNK = 00000003 
NSPSM_MSG_INT = 00000020 PL QOOOOAC7 R 02 
NSPSM_MSG_ = see bY QO000AB7 R 02 
NSPSM_SRV_01 = 0000000 PFE BR 00000986 R 02 
NSPSM_SRV_EXT = 44 PMSSGL_ARRLOCPK aeneeeee =X 02 
NSPSM_SRV_FLW = 44 ¢ PMSSGL_ARRTRAPK aeeneeee =X 0 
NSPSM_SRV_REQ = 000000F PMSS$GL_DEPLOCPK eereneee = X 0 
NSPSM_SRV_SP1 5 44 th PMS$GL_RCVBUF FL teneeere =X = 0 
NSP$R_Q = 0000000 PMSSGL_TRCNGLOS eeneeeee =X 02 
NSP$S_ACK_ = OST OQOOO10EE R 8s 
NSP$S_ACK_SP2 = $_IPL aeenenee =X 
NSP$S_DATA_SP = PRS SIRR aeneeere XX 02 

SP$S_FLW_CHAN = 0002 QUICK_SOL QOO004FD R 02 
NSPS$S_FLW_DRV = 4 RANG OQOOOAF? R 02 
NSP$S_FLW_MODE a § RCBSB_ACT_TIMER = 8 QO08F 
NSP$S_INF_VER = RCB$B_AQB_CNT = $ Ag 
NSPS$S_MSG_SP1 = Be RCBSB_CNT_APL = 8 95 
NSP$S_NSPA = 5 RCBS$B_CNT_NOL = 00000094 
NSP$S_QU = 5 RCBSB_CNT_OPL = 00 9 
NSP$S_QUAL_ACK = 2 RCBSB_CNT_PFE = 8 9 
NSPS$S_QUAL_ALTFLW = 1 RCBSB_ETY = 5A 
NSP$S_QUAL_DATA = bp 4 RCBSB_HOMEAREA = $308 : 
NSP$S_QUAL_FLW = 1 RCB$B_LSN_ADJ = OA 
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NE TDRVXPT 
Symbol table 


TR4SC_B 
TR4$SC_B 
TR4SC_B 
TR4$C_B 


TR4SC_VER_LOWW 
TR4SM_ADDR_AREA 


TR&SM_RTFLG_ROR 
TR4SM_RTFLG_RTS 
TR4$R_QUAL 

TR4$S_ADDR_AREA 
TRASS_ADDR_DEST 


“SCLASS_LS 
TR4$V~SCLASS_METR 
TR4SVSCLASS_SUBA 


WEC 

TR-F ILL. JNX 
TR-LPD_BOWN 
TR-RTHDR 
TR_-RTHRU 
TR-RTRN_IRP 
UN 

UPDATE _CACHE 
VASM_BYTE 
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SEP-1 
SEP=1 
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NETDRVXPT ; 
Psect synopsis 


PSECT name 


Ss . 
$ 

eee! 15_DRIVER 
116_DRIVER 


L 8 
- NETDRIVER Transport (Routing) Layer 16-SEP=1 AX/VM o V04-00 Pa 7 Nt 
, +A tli g-3EF “19 3B 83 +34 33 YET AC P.S SNETDRVXPT. MAR; 1 - (35) v( 


6° 60009 ( 9. 133 -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
8 ( 87.) qf NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
8 01100 ¢ 4560.) ( NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC LONG 
0000001 ¢ 1.) ( ‘} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
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Phase Page faults CPU Time Elapsed Time 
Initialization 37 00:00:00.09 00:00:00.85 
Sy heres Hy HBR IE 8:88:0) F 
7 hee 519 90: 99:04:07 03:08: 08-90 
Symbol table output 5 $0:00;00: $7 00:00:00.72 
Psect synopsis output 3 00:00:00.03 00:00:00.02 
Cross-reference output 0 sea A 4 00 00:00:00.00 
Assembler run totals 1274 00:00:35.45 00:01:20.66 


The working set Limit was 900 pages. 

130558 bytes (255 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table goece allocated to hold 1167 non-local and 250 local symbols. 
762 source Lines were read in Pass 1 progyc ing. 29 object records in Pass 2. 


53 pages of virtual memory were used to define 42 macros. 


Geeeeseeseuseeeeseeseccosos$ 


Macro library name 
Siittt 8: ap rater yall MLB; 1 
$255$DUA 33 IBJEVCDEF .MLB; 1 
$255$DUA NETAC CP.OBJ JNETDRV -MLB;1 
$255$DUA28: [(NETAC JINET.MLB; 1 1 
$255$0UA28: (SY 1s-0B) LIB. MLB 1 
Betta 28: (SYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 3 


1360 GETS were required to define 32 macros. 


There were no errors, warnings or information messages. 
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